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Modem  philosophers  like  Dreyfus,  Haugeland,  Heidegger,  Husserl  and 
Wittgenstein  take  different  stances  on  what  constitutes  Intelligence  ^ 
in  the  meantime,  success  In  war  and  peace  depends  on  computers. 
Sensors,  controllers  and  actuators  melded  into  smart  machines  build  cars 
round  the  clock  or  kill  at  long  range.  Additionally,  computing  machines 
process  data  used  in  all  phases  of  decision  making.  The  range  of  use  extends 
from  simple  word-processors  up  to  expert  consultants. 

However,  the  potential  use  of  computers  has  only  begun  to  be  explored. 
And,  though  there  hove  been  many  impressive  results  from  computer  expert 
systems,  they  have  been  limited  to  specific  domains  of  expertise.  Therefore, 
In  order  to  break  through  to  a  new  level  of  processing  activity,  the  Defense 
Advanced  Research  Projects  Agency  (DARPA)  launched  a  major  Strategic 
Computing  (SC)  program.  (DARPA,  1983,  pp  1-18) 

SC  has  a  goal  of  creating  a  widespread  machine  Intelligence  technology 
in  the  United  States.  It  alms  at  creating  a  prototype  autonomous  land 
vehicle,  a  pilot's  associate  and  a  battle  management  system.  The  SC  program 
Is  multi-level  and  addresses  Issues  from  microelectronics  to  software 
design.  However,  several  areas,  such  as  vision  and  speech  recognition,  which 
humans  do  so  effortlessly,  are  difficult  for  machines  with  present 
approaches  as  Indicated  in  this  quote  (DARPA,  1983,  p.  33): 

Recent  progress  In  developing  vision  for  navigation  has  been  severely 
constrained  by  lack  of  adequate  computing  hardware.  Not  only  are  the 
machines  which  are  now  being  used  too  large  to  be  carried  by  the 
experimental  vehicles,  but  current  machines  are  far  too  slow  to  execute 
the  vision  algorithms  In  real-time _ 


2  See  the  bibliography. 


The  first  problem  Is  addressed  by  creating  a  flowchart  interface  in 
which  the  user  graphically  creates  state  diagrams  that  are  converted  for 
the  user  into  MacPitts  programs.  (Weist,  1986) 

The  second  issue  is  the  subject  of  this  thesis:  on  examination  of  Lincoln 
Laboratory's  LISP  based  Layout  Language  (L5)  and  its  relation  to  MacPitts. 
L5  is  a  LISP  based  language  used  by  MacPitts  to  compile  Very  Large  Scale 
Integrated  (VLSI)  circuits  automatically.  LS  is  also  used  by  the  Lincoln 
Boolean  Synthesizer  (LBS),  a  Complementary  Metal  Oxide  Semiconductor 
(CMOS)  compiler  of  arbitrary  boolean  expressions,  to  generate  combinational 
logic  circuits. 

Both  of  these  compilers  have  many  interacting  programs  linked  together 
to  execute  automatically.  Alteration  of  this  behaviour  requires  that  the 
programs,  composed  of  L5  and  LISP  code,  be  modified. 

Therefore,  the  main  questions  examined  in  this  thesis  are: 

•  How  is  L5  created? 

•  How  is  L5  used? 

The  answer  to  these  questions  is  given  by: 

•  Introducing  LISP; 

•  Covering  LISP  extensions  needed  to  create  L5  (lincoln.l); 

•  Presenting  L5; 

•  Grouping  several  programs  into  a  'compiler;  and, 

•  Modifying  a  MacPitts  functional  unit. 

LISP  fundamentals  are  covered  in  Chapter  II.  The  ideas  of  functional 
programming  and  other  general  concepts  ore  discussed.  After  this  overview, 
the  presentation  covers  LISP  functions  and  usage.  Additionally,  a  look  is 


Appendix  A  contains  a  description  of  alignment  problems  caused  by 
Incorrect  CIF  plotting  or  organelle  specification;  and.  a  sketch  of  how  to 
experiment  In  the  MacPItts  environment. 

In  summary,  this  thesis  covers  L5.  a  flexible  idiom  for  procedurally 
creating  VLSI  circuits,  and  shows  how  understanding  L5  makes  MacPItts  and 
LBS  accessible  for  modification. 


In^tenttve tmgudges  ore  basad  on  directing  control  through  a  series 
of  assignment  statements.  LISP  on  the  other  hand  applies  functions  to  their 
arguments.  (MacLennan,  1983,  p.  345) 

A  function  takes  a  combination  of  arguments  and  assigns  a  unique 
value  to  It.  A  functionaf  or  sppUcdtive  language^  Is  built  upon  a  simple 
Idea  that  Is  well  Illustrated  in  this  quote  (Hofstadter,  1985,  p.  452} ; 

A  programmer's  Instinct  says  that  you  con  cumulatively  build  a  system, 
encapsulating  all  the  complexity  of  one  layer  into  a  few  functions,  then 
building  the  next  layer  up  by  exploiting  the  efficient  and  compact 
functions  defined  In  the  preceding  layer.  This  hierarchical  mode  of  buildup 
would  seem  to  allow  you  to  make  arbitrarily  complex  actions  be 
represented  at  the  top  level  by  very  simple  function  calls. 

'This  spirit  of  functional  application  pervades  both  MacPltts  and  LBS. 
But,  before  looking  at  LlSFs  functions,  a  language  for  talking  about  LISP, 
Backus  Naur  Format,  Is  introduced. 

2.  Backus  Naur  Format  (BNF) 

BNF  Is  a  concise  set  of  symbols  for  describing  the  syntax  of  computer 
languages.  Its  key  idea  is  that  the  description  should  look  like  the  language 
It's  talking  about  (MacLennan,  1983,  pp.  166-173).  A  terse  set  of  BNF 
symbols  Is  given  below: 

•  The  ’  < "  and  “  >  ■  Indicate  syntactic  categories.  For  example,  <1ntegen, 
<LISP  form>,  etc.. 

•  The  “  ::= '  means  '  is  defined  as '. 


1  Haugeland,  1984,  pp.  125-164  gives  a  very  cogent  explanation  of 
several  computer  architectures  (LISP  included]. 


There  is  another  imoortant  LiSP  object,  a  iisi,  defined  beiovv: 

¥  ' 

<list>3  .;=  (<atom>*)  I  ({<atorn>  1  <list>}*) 

A  list  is  a  left  parenthesis  followed  with  zero  or  more  atoms  or 
lists,  closed  off  with  a  right  parenthesis.  Notice  that  this  is  a  recursive 
definition:  a  <list>  is  defined  in  terms  of  itself.  Examples  of  lists  are: 

0,  (a),  (a  b  (c  d)  a). 

Note  that  0,  nil.  is  both  an  ataa  and  a  list. 

5NF  is  used  throughout  this  thesis  to  describe  LiSP  syntax.  LiSP's 
basic  functional  format.  <larnbda  function>,  can  now  be  analyzed. 

3.  Lambda  Functions 

One  method  for  writing  functions  in  LISP  is  with  lambda  notation.  (For 
other:function  definition  formats  see  Section  II.C.21  Perhaps  the  easiest 
way  to  understand  lambda  notation  is  with  this  quote  showing  its  history 
(Touretzky.  1984.  p.  86): 

Lambda  notation  was  created  by  Alonzo  Church,  a  mathematician  at 
Princeton  University,  as  an  unambiguous  way  of  specifying  functions,  their 
Inputs,  and  the  computations  they  perform.  In  lambda  notation,  a  function 
that  added  3  to  a  number  would  be  written  \x.(3  ♦  x).  The  \  is  the  Greek 
letter  lambda. 


2  Refer  to  Sections  II.C.1  and  II.C.3.b.  A  list  can  also  be  viewed  in  this 
light: 

<list>  ::=  (<head><tail>) 

<head>  { <atom>  1  <list> } 

<tail>  ;:=  <1ist> 

For  example; 


0  has  <heod>  ;=  nil  and  <tai1>  :=  nil 

(a)  has  <head>  :=  a  and  <tail>  ;=  nil 

(a  li  (c  d)  a)  has  <head>  ;=  a  and  <tai1>  ;=  (b  (c  di  e) 


The  lambda  function  format  can  be  named  by  using  the  LISP  primitive 
in  this  manner 

<function-name> 

->  (i0f  <function-name>  <1ombda  function>)  <CR> 
<function-name>  <atom> 

A  function  created  with  4m1  is  applied  to  its  argument's  parameters 
by  using  its  name  as  follows: 

<value>  ::=  ->  ![<function-name><porameter>*)<CR> 

By  naming  the  function,  its  usefulness  is  increased.  Instead  of  typing 
the  unwieldy  lambda  form  each  time  the  function  is  applied,  the  user  simply 
types  in  the  function's  name.  Consider  F(x,y)  =  3x  >  y2  defined  as  a  LISP 
function  named  ^aadratic: 

;;  <funct1on-name>  ::s  ->  (def  <function-name><1ambda  funct1on>) 

(laalitfa  Ca  gl 

(plat  Ctiaias  3  aKfiaiat  §  g))))<CR> 

;;  LISP  returns  <function-name>: 

goairatlc 


This  function,  gaaPratlc,  Is  applied  by  using  its  name  with 
parameters: 

->  (gaairatic  2  3}<CR> 

;;  (quadratic  <x><y>) 

->  (gaagratic  (gaairatic  -1  2)(gaagratic  2  3|)<CR> 

;;  (quadratic  -t  2)  ;=  1  &  (quadratic  2  3):=  15 
-(quadratic  1  15}:=  228 
221 


6  See  Section  II.C.2  for  another  method  for  defining  functions  I  iafaa  ]. 


static  aarlafela:  a  variable  that  is  allocated  before  execution  of  the 
program  begins  and  that  remains  allocated  for  the  duration  of  execution  of 
the  program. 

aariaile  (iMVMl 

(1)  in  computer  programming,  a  character  or  group  of  characters  that 
refers  to  a  value  and,  in  the  execution  of  a  computer  program, 
corresponds  to  an  address. 

(2)  a  quantity  which  can  assume  any  of  a  given  set  of  values .... 

Three  more  terms  need  to  be  defined:  A  bound  vohabte  is  one  of  a 

function's  formal  parameters  (function's  arguments].  A  giobol  vorfob/o  has 
its  value  set  at  the  top  level.  A  froe  yorfobfe  is  not  a  bound  variable,  but  its 
value  is  used  or  changed  by  a  function.  (Wilensky,  1984,  pp.  39-40)  Now  that 
the  terms  have  been  defined,  the  concept  of  variable  scoping  can  be 
examined. 

There  are  two  basic  variable  scoping  techniques  static  scoping 
and  dynamic  scoping,  in  static  scoping  (also  called  lexica]  scoping)  a 
procedure  is  called  in  the  environment  of  its  definition;  in  dynamic  scoping 
a  procedure  is  called  in  the  environment  of  its  caller*  (MacLennan,  pp.  1 12- 
1 13, 1983).  In  other  words,  (MacLennan,  p.  109, 1983): 

•  In  dynamic  scoping  the  meanings  of  statements  and  expressions  are 
determined  by  the  dynamic  structure  of  the  computations  evolving  in  time. 

•  In  static  scoping  the  meanings  of  statements  and  expressions  are 
determined  by  the  static  structure  of  the  program. 

Franz  LISP  is  a  dynamically  scoped  language.^  Therefore,  bound 
variables  which  are  changed  during  a  function  call  are  restored  to  their 
original  values  upon  exiting  the  function,  if  calls  to  other  functions  are 

7  COMMON  LISP  is  a  lexically  scoped  language  (Winston,  1984,  p.  54). 


->  test  (keeael 

(sate  keaei  Cl^  baaBtf)! 

;;  bound  ;=  bound  *  1 

;;  The  symbol  "free'  is  not  bound  within  the  context  of  test. 

baaad  fraa))<CR> 

;;  the  result  :s  bound  *  free 

test 

->  f test  fraal<CR> 

;;  First,  'bound'  assumes  'free's'  value:  bound  :=  free's  value  :=  2 
;;  Second,  bound  :=  bound  ♦  1  :=  2  1  :s  3 
;;  Third,  the  result  :=  bound  ♦  free  :=  3+2=5 

5 

In  contrast  if  LISP  used  can ty  nferenca : 

(1)  bound  ::=  free  :=  2 

(2)  'bound'  increments:  bound  :=  bound  +  1  :=  1  +  2  =  3 

(3)  since  bound  ::=  free,  'free'  also  becomes  3:  free  :=  3 

(4)  the  result  is:  bound  +  free  :s  3  +  3  =  6 

In  summary.  Franz  Lisp  resolves  the  problems  of  variable  context  and 
scoping  by  using  call  by  value  and  dynamic  scoping.  This  issue  can  be 
extended  to  functions.  Next,  consider  how  functions  refer  to  other  functions 
or  to  themselves. 

5.  Recursion  and  Iteration 

LISP  allows  functions  to  refer  to  themselves.  This  approach,  known  as 
recursion,  is  briefly  introduced  in  this  section.^^^  Suppose  a  function  that 
raises  a  given  integer  base  to  a  nonnegative  integer  power  is  desired.  Two 


9  aefBB  is  an  alternate  method  of  defining  functions,  see  Section  II.C.2. 
A  more  in  depth  discussion  of  recursion  is  given  in  Section  II.C.4. 


0.  INTERPRETED^  COMPILED  OR  DUMPED  LISP 
The  interpreter  allows  interactive  running  or  lisp  programs  and  provides 
on  effective  environment  for  debugging  LISP  code.  At  the  same  time,  LISP 
also  provides  a  compiler  which  can  considerably  speed  up  program  execution 
for  large  code  segments.  This  section  examines  the  different  ways  LISP  can 
be  run  and  covers  very  basic  input  and  output. 

I.  The  LISP  Read-Eval-Print  Loop:  Interpreted  LISP 
In  Section  II.A.I,  several  examples  showed  how  the  LISP  interpreter 
“reads*  and  “evaluates*  input,  and  then  “prints*  out  a  result.  This  read-eval- 
print  loop  is  discussed  in  this  section.  The  two  major  participants  in  this 
cycle,  SMl  and  are  also  covered. 

•  a.  The  LISP  Prompt  Start  “  I  *  andStop*!* 

To  obtain  *  ->  “,  so  that  <LISP  form>s  with  *  C  *  and  * )  *  can  run, 
the  Franz  Lisp  Interpreter  is  Invoked  by  typing  lisp  after  the  UNIX^  prompt: 

X  nsp<CR> 

Fraaz  Lisp  Ppas  3t.i9 

-> 

The  “  ->  *  Is  a  prompt  sign  which  means  that  Inputs  will  be 
“evaluated*  or  “Interpreted*.  An  open  parenthesis,  *  C  Instructs  the 
Interpreter  to  do  whatever  follows,  and  a  closed  parenthesis,  * )  “,  tells  the 
Interpreter  to  stop  doing  It.  (Wllensky,  1904,  p.  ZKHasemer,  1964,  p.  6) 
Therefore,  If  the  user  Inputs:  Iptas  I  2  3|  <CR>,  the  *  ( *  starts  the  LISP 
Interpreter  “plusing*  I  with  2,  then  with  3,  and  stops  'plusing'  upon 
reaching  *  I  “.  For  example: 

->  (plas  1  2  3)  <CR> 

i 


<LISP  form>s’5  or 
<expresslon>8 
/  \ 

<otom>s  <1ist>8 

/  \ 

<niifnber>8  <8ymboI>8 
/  \ 

<f1oating-po1nt>  <1ntoger>8 

Ftgurs  2.2  Tho  LISP  Object  Hierarchy 
Examples  of  these  LISP  objects  are  shown  in  Table  2.1: 


TABLE  2.1 

EXAMPLES  OF  LISP  OBJECTS 
Example  LISP  Code 

(plas  I  21, 1.23,  (plat  1  21  3),  . 

O,  I  211,  (plat  I  2), . . . 

I,  f.1,1, maaa, ... 
a,  awa,  ■a223,  XXarr, . . . 

"  * ^ . 

It  seems  that  LISP  is  always  searching  for  a  value.  The  next 
section  answers  the  question:  "How  does  it  accept  something  literally?' 
c.  Eval's  dual:  aaata  or  *  " 

When  evaluation  is  undesirable  it  is  inhibited  with  ^aata  or  its 
abbreviated  form,  a  quote  mark.  The  '  '  '  is  a  <8pecial  symbob  that  stops 
evaluation.  This  idea  is  evident  from  the  syntax: 

<LiSP  form>  ::r  ->  ((faata  <LISP  fonn>)  I  '<LISP  form>}<CR> 


LISP  Objects 

•  <LlSP  form>s 

•  <li8t>8 

•  <atom>8 

e  <8ymbol>8 

•  <8pecial  symbobs 


13  Refer  to  Sections  I  I.A.2, 1 1.A.3  and  I  I.C.  1 . 

1^  '\'  [backslash]  is  an  escape  character. ' and  '  ,•  *  ore  described  in 
Section  III.A.1.2 
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However,  there  are  errors  where  execution  might  not  be  stopped  by 
the  interpreter^^,  in  that  case,  lisp  can  be  stopped  with  an  interrupt.  The 
first  control  C  (  )  sets  an  Interrupt  flag:  the  system  waits  for  a  ’safe' 

place  to  exit.  The  second  forces  all  system  calls  to  compiled  code  to 
check  the  Interrupt  flag;  and  finally,  a  third  causes  an  Immediate 
Interrupt.  (Foderado,  1983,  Section  10.6)  Here  Is  an  example: 

-c 

latenupt: 

■reak  ail 

<1>: 

An  Interpreter  Is  a  useful  interactive  tool;  however,  to  hondle 
large  programs  and  obtain  efficient  object  code,  a  compiler  Is  needed. 

2.  Compiled  LISP 

Compilation  of  LISP  programs  Increases  their  execution  speed.  In 
order  to  keep  compilation  dependencies  among  several  programs 
straightened  out,  a  makefile  Is  used.  In  addition,  a  makefile  can  join 
together  several  programs  so  they  can  run  as  a  large  unit. 

a.  The  Compiler 

The  Franz  Lisp  compiler  Is  Invoked  from  the  UNIX*  C-Shell  with 
the  following  command  (Foderado,  1983,  Chapter  12): 

%  liszt  [*-<opt1on>*]  <f11ename> 

There  are  several  options,  among  which,  p  [compile  In  quiet  model 
and  ■  [create  a  cross  reference  file]  are  very  useful.  The  compiler  can  be  run 
with  several  options  at  one  time  as  follows: 

Richard  Hamming  has  jokingly  said  that  perhaps  computers  do  in  fact 
show  free  will,  1t‘s  just  that  people  always  call  a  repairman  when  they  do 
It. 


Consider  the  following  example  makefile  composed  of  four 
dependent  results  IL3.«,  mmwt.,  cicm,  and  ncl.  The  desired  results  are 
separated  Oy  a  colon  from  their  prerequisites  and  placed  on  the  same  line. 
Notice  that  two  results,  cImi,  and  iac,  have  no  associated  prerequisites. 
The  next  line  contains  the  actions  to  create  each  result.  Assume  that  all  of 
this  code  Is  in  a  file  named  ‘  Makefile  *  In  the  user’s  directory  which 
contains  L5.1  and  11nco1n.1.  Makefile’s  contents  are  now  presented,  and 
described  immediately  afterwards  [the  explanation  continues  into  Section 
I1.B.3: 

LS.«:  LS.I  llacala.a 
liszt  -NB  IS 

mrfc:  LS.b  liacBla.a 

ClBBd  'L5.S|\ 

(daaplispi^  BParkHeBit))*  I  lisp 

cIbbb:  rmpo  -f  LS.b  IIbcbIb.* 


The  ecfeB  command  prints  out  Its  arguments.  The  function,  bbbI- 
vfeBB,  tells  the  LISP  compiler  to  evaluate  the  expressions  that  follow. 
Instead  of  compiling  them.  (Wllensky,  1983, 281) 

IS  The  backslash  “  \  ’  Is  an  escape  character,  therefore  the  next  line  Is 
treated  as  a  continuation.  The "  I  ‘  stands  for  ‘pipe”,  I.e.,  the  results  of  the 
first  process  are  passed  on  to  the  next  process. 

IS  Saves  the  LISP  environment  In  an  executable  file  named  ‘work”.  Typing 
‘work”  will  then  recreate  the  LISP  system  os  It  was  running  when  it  was 
dumped. 

^  Forced  removal  of  files. 
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Eianpiies  •rrai.l  tsp.l 

INSTILL  felB  eatract.1 

LS.I  c-raatiBes.c  siBi.l 

Hakefila 

*  And  finally,  back  to  the  UNIX^  prompt. 

X 

LISP  files  which  are  dependent  on  each  other  can  be  organized  using 
a  makefile.  They  can  also  be  Individually  loaded  Into  the  Interpreter  and 
saved  as  one  executable  file  using  Paaiplisp. 

3.  Interpreted  and  Compiled  LISP:  Paaialita 

In  some  programming  languages  disparate  programs  can  be  combined 
to  form  a  working  unit  using  a  linker.  In  LISP  this  can  be  achieved  by 
creating  an  'environment'  that  contains  all  the  programs.  This  Is  what  the 
BParic  section  of  the  example  makefile  created  in  the  previous  section  does: 

X  aiaka  BPafk<CR> 

*  Execute  the  actions  under  the  'work'  heading  of  this  makefile. 

acba  "(aaal-BPkaa  (aaalUlaai  iiacala-aMlaatf  'L5.Q) 
(tfaaiplisp  aiarkHaaitir  I  lisp 

*  Load  11nco1n.o,  L5.o  and  organelles.o  into  LISP,  dump  this  envi- 

^ronment  In  an  executable  file  named  'worlc'  and  then  exit  LISP. 

Fraaz  Lisp,  tpas  SP-ff 

->  IfasI  llBcalB.al 

;;  fasi  Is  the  function  LISP  uses  to  load  object  code  files. 

->  IfasI  L5.a| 

X 

In  summmary,  an  executable  file,  apart,  has  been  created.  Typing 
apart  as  an  Imperative  command  places  the  user  In  LISP  with  the  functions 
in  L5  and  lincoln  also  available. 


X  ■art<CR> 

-> 


X  cit  .llsprc<CR> 

*  The  UNIX9  'car  command  dumps  tne  file  Mlsprc'  onto  the 

*  terminal  screen. 

(ev«l-«liea  (laaP  aaal) 

(laaP  iiBcalB.a) 

(laaP  *L5.a) 

(laad  'argaBallas.a) ) 

Since  LISP  automatically  loads  the  .lisprc  file  [in  this  case  all  that 
the  file  contains  is  one  large  aaal-BPhaB  <LISP  form>],  then  the  result  is 
that  all  three  laaP  functions  are  evaluated  and  the  files  loaded  in. 

X  llsp<CR> 

*  The  lisp  Interpreter  is  Invoked  and  the  .lisprc  file  is  loaded. 

Fraaz  Lisp  tpas  3t.i9 

-> 

.  The  user  is  now  in  LISP  with  the  three  files  loaded.  The  main 
difference  between  using  this  method  and  iaaiplisp  is  that  a  dumped  file 
usually  requires  at  least  a  megabyte  of  storage,  whereas  loading  several 
files  using  the  .lisprc  file  takes  a  short  while.^^  in  Chapter  V.A  and  Appendix 
A.B  it  will  be  seen  that  the  MacPitts  and  LBS  environments  can  be  invoked  by 
typing  their  respective  names  without  any  arguments.  For  example: 

X  BiBcpitls  [or  Iks] 

asBfe:  Biacpitts  <fileBaBie>  |<aptiaBS>] 

-> 

A  closer  look  is  now  taken  at  how  files  are  input  into  LISP  and  how 
functions  can  be  output  into  files. 


23  A  compromise  between  these  two  approaches  is  to  use  the  autorun 
option  when  compiling  a  LISP  file  [e.g.,  X  llszt  -r  <filename>l.  This  creates 
an  object  file  which  has  a  small  piece  of  bootstrap  code  attached.  The 
object  file  can  then  be  run  as  an  executable  file.  (Wilensky,  1984,  p.  284) 
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The  pretty  print  function  can  also  be  used  to  send  <LISP  rorm>s  to  a 
rile  In  the  following  fashion; 

->  (pp26  (F  tenp.ll  n'te-tlie-e|<CR> 

;;  Output  the  function  m-to-the-n  to  the  file  tenrip.l. 

t 

Conversely,  a  <LISP  form>  can  be  read  from  a  file,  without  being 
evaluated,  using  reed; 

->  (reed  (iefile  'tenp.l))<CR> 

;;  Read  the  next  <LISP  form>  from  the  temp.l  file.  When  the  end  of 
;;  file  Is  reached  then  nil  is  returned.  The  <LISP  form>  is  not 
;;  evaluated  when  read.  To  do  so  eval  must  be  explicitly  used.  For 
;;  example;  (eval  (read  (Infile  *4-flags)}),  where  4-flags  has  a 
;;  <L1SP  form>  that  needs  to  be  evaluated. 

(def  n-ta-tlie-B 
(lanbda  im  ■) 

(caad  (tzerap  ■)  1) 

(t  (tines  n  (n-te-tke-e  n  (t-  ■)))) ) ) ) 

->  (eeit)<CR> 

;;  Leave  LISP  and  then  output  temp.l  to  the  screen  using  cat 


26  other  functions  that  are  used  for  output  are  peten  and  priet.  Their 
syntax  Is  similar. 

<LISP  form>  ;;= 

->  (peten  (']<LISP  form>  [(eatnie  <f11ename>  ['b]|])<CR> 
<LISP  form>;;= 

->  (priet  I*]<LiSP  form>  [(eetfile  <f11ename>  ['e])])<CR> 
These  functions  both  output  to  the  terminal  If  the  optional  outflle 
argument  Is  not  given  [the  'e  appends  the  output  to  the  previous  file 
contents,  otherwise  they  are  wiped  out].  Because  these  functions  do  not 
send  carriage  returns  when  they  finish  their  output,  they  are  usually  seen  In 
conjunction  with  (terpri  [(eetfile  <f11ename>  ['ej)  which  outputs  a 
terminate  line  character  sequence.  For  example; 

->  (peten  'I  Step  prletieg.  |)(terprii<CR> 

Step  prietieg. 


A  function  and  a  list  of  data  look  tne  same  in  lisp.  For  example,  the 


next  <LISP  form>, 

(replace-iteB-paiats  iaserter  aeap-paiatsl. 

Is  an  application  of  a  function  Ireplaca-lteoi-paiBts]  to  its  arguments 
liaparter  and  Mv-paiats];  or.  It  can  also  be  a  list  of  three  elements 
[replaca-iteai-'paiats,  iaaerter  and  aeai-paiats]. 

Which  one  It  It?  It  Is  both!  A  LISP  program  is  a  list,  and  eaal 
normally  applies  the  list's  head  as  a  function  to  the  list's  tall.  If  the  list  is 
quoted,  then  It's  treated  as  data.  (nacLennan,  1983,  p.  348) 

Atoms  and  lists  are  referred  to  as  symbolic  expressions.  Expressions 
are  called  forms  If  they  are  to  be  evaluated.  'Considered  as  data,  a  list  may 
be  called  an  expression;  considered  as  a  piece  of  procedure,  the  same  list 
may  be  called  a  form*.  (Winston,  1984,  p.  20) 

With  these  ideas  in  mind  another  look  can  be  taken  at  the  procedure 
for  LISP  function  definition. 

2.  LISP  Function  Definition:  Pef  and  Pefoa^? 

Up  to  this  point  the  reader  has  seen  functions  that  take  a  fixed 
number  of  arguments  all  of  which  are  evaluated.  This  class  of  functions  is 
called  an  expr.  There  ore  three  other  categories: /expr  and  mecros^. 
An  fexpr  takes  an  unlimited  number  of  arguments,  but  does'nt  evaluate  them. 


27  See  Section  II.A.2  for  function  definition  using  tfef. 
^  Macros  are  discussed  In  Chapter  III. 
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For  example,  a  function  that  rinds  the  logarithm  base  2  of  a  number 
can  be  denned  in  lisp  as  follows: 

->  (defoB  lag-tmo  (Bviafeer  VaptiBaal  (Base  2)) 

;;The  primitive  LISP  function  quotient  finds  the  quotient  of  two 
;;  numbers,  and  log  finds  the  natural  logarithm  of  a  number.  The 
;;  optional  argument  'base'  defaults  to  a  value  of  2  if  a 
;;  parameter  Is  not  given  for  it. 

CgaatieBt  (lag  aeaibarMlag  Basal)  )<CR> 

;;  Find  the  logarithm  base  2  or  the  given  base  of  a  number 

lag-tM 

This  function  Is  applied  In  the  following  ways: 

->  (lag-taia  13)<CR> 

;;  (log-two  <numben) 

;;  Find  the  log  base  two  [defaul]  of  13. 

3.7Bg43971i141B92 


->  (lag-tBPa  13  ig)<CR> 

;;  Evaluate  the  base  ten  log  of  1 3. 

1.113943352306137 

Another  way  to  define  this  lexpr  Is  as  follows: 

->  (dafaa  lag-tva  a 

;;  In  this  format,  the  symbol  'n',  will  be  bound  with  the  number 
;;  of  arguments  supplied.  The  function  arg  gives  the  parameter 
;;  associated  with  the  position  corresponding  to  the  number  it  Is 
;;  given. 

(gaatiaat 

(lag  (arg  1)) 

;;  If  a  second  parameter  Is  provided  use  Its  value.  If  not  use  2. 

(lag  (caad 

(|>  a  DIarg  2)1 
(12))))  )<CR> 

lag-tBPa 

The  third  functional  class,  an  fexpr,  doesn't  evaluate  its  arguments 
and  takes  a  variable  number  of  them.  Nothing  comes  for  free  though,  the 
flexibility  of  a  variable  number  of  inputs  is  offset  by  the  overhead  of 
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A  synopsis  or  common  LISP  functions  is  presented  to  brleriy 
familiarize  the  reader  with  LISP'S  syntax.  First,  a  look  at  functions  used  to 
give  values  to  symbols. 

a.  Binding  Variables:  set,  set«,  let  and  let* 

Variables  are  assigned  values  with  set  or  set^  (set  quote]. 
Although  set  only  takes  one  symbol  at  a  time.  It  has  a  similar  syntax  to 
setq: 

(set  {I*]<symbol>}  {n<LlSP  form>}) 

(setq  {<symbol>  I'kLISP  form>K) 

These  two  functions  are  applied  as  follows: 

->  (set  '■  *(e  i  cll<CR> 

;;  Set  ’A'  to  hove  the  value  *(a  b  c)‘. 

(eke) 

->  ■<CR> 

;;  A's  value  is  (a  b  c). 

(e  k  c) 

->  (setq  ■  ■  C  '(I  2  3)  ■  (pies  I  2  3))<CR> 

;;  The  <symbol>s  are  unevoluated,  but  are  respectively  assigned 
;;  the  results  of  evaluating  the  <LISP  form>s.  setq  returns  the 
;;  value  of  the  last  evaluation  It  performs. 

;;  B  :=  A,  C  :=  (1  2  3)  and  D  :=  (plus  1  2  3)  :=  6 
i 

->  ■<CR> 

;;  B‘s  value  has  been  set  to  A,  but  A  ;=  (a  b  c). 

(eke) 

->  C<CR> 

;;  C*8  value  is  (1  2  3). 

(I  2  3) 


The  variables  are  restored  to  the  values  they  had  prior  to 
participating  in  the  let*  construct.  With  these  methods  of  variable 
assignment  in  hand,  a  look  is  now  taken  at  list  manipulation, 
b.  List  Selection:  car  ,cdr^,  ntli ,  and  ntlicdr 
LISP  is  based  on  the  application  of  functions  to  arguments.  The 
syntax  of  LISP  generally  has  a  structure  of  the  form: 
(<function-name><argument>*) 

Therefore,  it  seems  natural  to  have  a  selector  that  picks  the  first 
element  of  a  list,  the  “function",  and  another  selector  that  returns  all  the 
elements  of  a  list  except  the  first,  the  “arguments".  These  selectors  are  car 

and  cdr 

<head>  ::=  ->  (car  <list>)<CR> 

<tai1>  ::=->(cdr<11st>)<CR> 

<list>  ::=  (<head><tai1>)24 
<head>  ::=  <LISP  form> 

<tail>  :;=  <LISP  form> 

The  application  of  these  basic  selector  functions  is  shown  below: 

->  (car  '(plas  I  2  3  4))<CR> 

;;  (car  <list>) 

;;  car  selects  the  first  {“function"  or  "head"}  list  element 

plas 

The  "  tail"  selector,  cdr,  is  used  as  follows: 


33  car  and  cdr  were  assembly  language  instructions  for  the  IBM  704  on 
which  LISP  was  first  implemehted.  An  instruction  was  divided  up  into 
fields.  Two  of  the  fields  were  named  the  address  and  decrement .  car  and 
cdr  were  the  instructions  for  getting  the  contents  of  the  address  pointed  to 
by  these  fields.  (Chamiak,  1985,  p.48) 

3^  Compare  to  the  definition  of  a  list  in  Section  II.A.2. 


->  (itli  3  *<«■«  IB  thasB  Bags  It  caaie  ta  pass)l<CR> 

::  (nth  <index><lfst>) 

;;  Storting  ot  0,  return  the  Indexed  argument  of  the  given  list. 

Ba§s 

->(BtkcBr  2  '(hglaaiarpliisBi:  all  is  tana  9  Biattar))<CR> 

;;  (nthcdr  <1ndex><11st>) 

;;  Starting  at  0,  return  the  Indexed  cdr  of  the  given  list. 

ffana  t  aiatlarl 

Lists  can  be  separated  into  their  components  with  the  functions 

covered  In  this  section;  but,  how  are  they  built  up? 

c.  List  Construction:  caas,  appaaB  and  list 

The  list  selectors  car  and  cBr  separate  a  list  Into  Us  'head*  or 

'function*  and  Its  'tall*  or  'arguments'.  The  list  constructor  caas  is  their 

dual:  Tt  synthesizes  a  'head*  and  'tali'  Into  a  list.  (Winston,  1984,  p.  29-31) 

<11st>  ::=  ->  (caas  l'l<head>  I*l<ta11>|<CR> 

<llst>  ::=  (<heod><tall>>  ::=  ->  (caas  •<head>  '<toil>)<CR> 

<heod>  ::s  <LISP  form>,  and  <tall>  ::=  <11st>35 

Therefore,  in  order  to  synthesize  a  list  out  of  two  parts: 

->  (caas  *plBS  ‘(12  3)|<CR> 

;;  (cons  ■<heod>  '<to11>) 

(plas  I  2  3) 

To  create  lists  use  list  with  this  format: 

<1ist>  ::=  ->  (list  {  CkLISP  form>  )*)<CR> 

An  example  that  mokes  a  list  out  of  several  arguments  Is: 

->  (list  Tliis  'is  ‘a  'JaiaeB  'saBteBca!)<CR> 

;;  Make  a  list  out  of  the  following  elements. 

(This  is  a  jaiaaB  saataacal) 


39  In  actuality  an  atom  can  form  the  tall  element,  this  produces  a  dotted 
list,  e.g.,  (<heod>.<toi1>) 


->  (appli  ‘appppP  *f(a  iMc  Pile  nil<CR> 

(a  fe  c  tf  e  O 

fncall  Is  similar  to  apply,  except  that  it  accepts  each  parameter 
for  the  function  Individually,  it  has  this  format: 

<va1ue>  ->  (faacall  <funct1on-name>  { I']<PQrameter>  }*|<CR> 
Examples  of  fiacall  now  follow: 

->  (faacall  ‘plas  1  2  3)<CR> 

"  (f uncall  <funct1on>  { ri<parameter>}*  ) 

§ 

->  (faacall  ‘appeal  ‘(a  k|  '(c  d)  '(a  f))<CR> 

(a  fe  c  d  a 

Up  to  this  point,  functions  can  be  applied  sequentially  to  each 
other;  but  so  far,  there  Is  no  way  to  conditionally  apply  a  function.  In  order 
to  build  control  structures  that  can  do  this,  the  Idea  of  a  predicate  Is  now 
Introduced. 

e.  Predicates  (the  Values  t  and  ail)  and  the  caad  Control  Structure 
A  predicate  Is  a  function  whose  value  Is  either  true  or  false.  The 
LISP  symbol  for  true  Is  t  and  for  false  IVs  all.  In  LISP  any  non-ail  value  is 
considered  to  be  true.  Both  t  and  all  evaluate  to  themselves.  The  empty  list 
Is  also  called  all  and  is  the  only  LISP  expression  that  is  simultaneously  a 
list  and  an  atom!  (Winston,  1984,  p.  44-46) 

Therefore,  the  following  is  true: 

{ 1 1  all }  ::=  ->  (<pred1cote><LISP  form>*l<CR> 

Many  LISP  predicates  end  with  a  p,  e.g.  Ilstp,  ailaasp,  etc.,  but 
there  are  Important  exceptions  such  as:  ataai,  aall  and  aqaal.  (Touretzky, 
1984,  pp.  14-17)  So,  for  example: 
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->  (aail<CR> 

;;  If  "and"  has  no  arguments  it  returns  t. 

t 

->  {mm4  1  2  (plas  2  3))<CR> 

;;  If  all  Its  arguments  are  non-nil,  then  'and'  gives  the  value  of 
;;  its  last  argument;  otherwise,  if  any  argument  evaluates  to  nil 
;;  the  result  is  nil. 

S 

->  (•rl<CR> 

;;  If  "or"  has  no  arguments  it  returns  nil. 


->  (ar  (zara^  IM*  3  5)0)<CR> 

;;  Returns  the  first  non-nil  value,  otherwise  if  all  its 
;;  arguments  evaluate  to  nil,  ‘  or  *  returns  nil. 

15 

In  another  example,  examine  how  a  predicate,  aiaaiaer?,^  is 
constructed  using  conditional  tests  and  the  LISP  function  ataaifear 

->  (BiaaiPar  ‘a  ‘Cfe  c  a  i  a)l<CR> 

;;  member  returns  a  list  that  starts  with  the  first  instance 
;;  of  the  element  that  is  being  checked  for  membership  in  a 
;;  list. 

(a  a  a| 

The  code  for  the  aiaabar?  predicate  is  now  shown.  Observe  that 
’  list  ‘  is  a  parameter  and  not  the  list  function: 


3S  ->  (zarap  1  |<CR> 
ail 

->  tzarap  0|<CR> 
t 

39  See  Chapter  III  for  a  description  of  lincoln.1.  In  lincoln.1  predicates 
usually  end  with  a  ’  ?  ’. 


tiMal  tail) 


->  (iafia  Mtcli-tliat 
ftlilBi  list  prailca 

tcaai 

;;  This  is  the  recursion  s  basis  condition: 

;;  If  the  list  is  empty,  then  all  the  results  are  in  the  tail. 
;;  Since  the  first  elements  are  being  consed  into  the  tail 
;;  first  by  the  application  of  match-that  to  the  remainder 
;;  of  the  list,  (cdr  list),  when  the  basis  condition  is  met, 

"  all  the  element  in  the  tail  will  be  backwards. 

;;  Therefore,  reverse  them  and  return  this  as  the  result. 

;;  This  is  the  Basis  Condition:  stop  if  the  list  is  empty, 
((aall?  llstMraaarsa  tall)) 

;;  The  list  wasn't  empty,  therefore,  apply  the  predicate 
;;  to  the  element's  head.  If  the  predicate  is  satisfied, 

;;  place  the  head  in  the  list  called  ‘tail’. 

;;  This  is  a  Recursive  Condition:  apply  the  predicate  to 
;;  first  list  element,  (car  list),  and  match-that  to  the 
;;  rest  of  the  list,  (cdr  list). 

IffaBcall  preBicata  thlag  Uar  list)) 

CBiatch-tliat 
thlag 
(cir  list) 
praBicata 

(caas  (car  list)  tail)) ) 

;;  Since  the  list  wasn't  empty  and  the  head  element  did'nt 
;;  satisfy  the  predicate,  apply  this  algorithm  to  the  rest 
;;  of  the  list.  Another  Recursive  Condition. 

(t 

(aiatch-that  thlag  (cBr  list)  preBicate  tail|^<CR> 

;;  LISP  returns  the  function's  name 

Biatch-that 

Predicates  can  also  be  used  in  iterative  control  structures. 


^  The  ■  1  ■  is  a  right  superparenthesis.  A  right  superparenthesis  can 
substitute  for  as  many  regular  parenthesis,  ‘ ) '  as  would  be  required  to 
close  off  the  <LISP  form>.  However,  the  count  stops  as  soon  as  a  left 
superparenthesis, '  I is  encountered.  (Wilensky,  1985,  p.  42) 


The  sstf's  ore  used  to  assign  values  to  variables  within  the  context 
of  the  praf.  As  an  example,  review  this  definition  of  a  factorial  function: 

->  Idefpa  factPflal  (lategerl 

;;  Bind  local  variables  to  nil. 

(prag  (rasalt) 

;;  Initialize  local  variables 

(satg  rasalt  1) 

;;  A  loop  that  will  find  the  factorial  of  a  positive  Integer 

laap 

;;  IF  the  integer  is  zero  then  exit  the  prog  and  return  the  result. 

(caad  (Izarap  latagerMratara  rasaltl)) 

;;  OTHERWISE,  multiply  the  Integer  by  the  accumulated  result. 

;;  then  decrement  the  integer  by  one  and  repeat  the  loop. 

(setg  rasalt  (*  iateger  rasalt)) 

(satg  iateger  O-  iBteger))(ga  leap) )  )<CR> 
factarial 

A  more  structured  Iterative  syntax,  which  can  do  everything  prag 

does,  uses  da  or  da*  (Winston.  1984.  p.  86): 

Cda  ({(<variable>  <1n1t1a1-value>  <update-form>)}») 

( <6nd-te8t>  <LISP  form>*  <re8ult-form>)  <body>  )^2 
<end-t8st>  ::=  <test  form>^ 

<r8sult-form>  ::=  <LISP  foinm>,  and  <body>  <L1SP  forTn>* 

However.  If  an  action  is  to  be  performed  across  lists,  then  "the 

lazy  man's  do  loop',  napcar.  can  be  used.  (Winston.  1984,  p.  79)  For 

example,  given  the  LISP  primitive  zerap,  a  list’s  elements  can  all  be 

checked  for  equality  with  zero  In  one  fell  swoop: 

->  (aiapcar  'zerap  '(I  •  a  0  8  2))<CR> 

(ail  t  all  1 1  ail) 


42  See  Section  li.C.4  for  an  example  of  da. 

43  See  Section  II.C.3.e  for  <test  form>’s  format. 


->  (defHB  ■-td-tlie-a  !■  ■! 

(Cresdit  1  (*  ■  resaltll 
Cpdver  ■  C-  pdwer  I  )|) 

((zerop  pdHPer)  resalt)))<CR> 

;;  Raise  a  number  to  a  positive  power  m^. 

■-td-tfee-B 

->  CH-td-the-B  2  3|<CR> 

;;  result)  :=  1,  power  :=  3,  (zerop  3)  ;=  nil 

;;  resu1t2  :=  (*  2  1)  :s  2,  power  :=  (-  3  1)  :=  2,  (zerop  2)  :=  nil 

;;  result3  :=  (*  2  2)  :=  4,  power  :=  (-  2  1)  :=  1 ,  (zerop  1)  ;=  nil 

;;  result4  ;=  (*  2  4)  :=  8,  power  ;z  (-  1  1 )  :=  0,  (zerop  0)  :=  t 

• 

Recursion  accomplishes  indefinite  repetition  ‘by  having  a  function  call 
itself  during  its  execution.'  (Wilensky,  1984,  p.  73}  A  recursive 
implementation  of  Bi-td-tbd-B  (Winston,  1984,  p.  64): 

*>  (ddfBB  BI-td-thd-B  (BI  B) 

;;  The  exponent  I  n  1  should  be  a  non-negative  integer. 

(CBBd 

;;  Test  to  see  if  the  exponent  [  n  ]  is  zero, 

;;  if  it  is,  return  a  value  of  one. 

;;  This  is  the  Basis  Condition. 

(fzdrdp  bI  II 

;;  if  the  exponent  is  not  one,  then 
;;  multiply  m  by  (m-to-the-n  m  ( 1  -  n)),  n.b., 

;;  the  recursion  will  end  since  n  will  be  reduced 
;;  to  zero  and  (m-to-the-n  m  0)  is  onel 
;;  This  is  the  Recursive  Condition. 

(t  BI  (Bi-td-tbd-d  ■  (I-  dl^ll)  1 1  |<CR> 
ai-td-tbd-B 


Refer  to  Section  II.C.3.e  for  dd’s  syntax. 

^  1-  decrements  by  one,  while  increments  by  one. 


logical  error  The  three  baste  functions  associated  with  these  programs  are 

trice,  iebi§  and  step.^'^  To  see  how  they  work,  recall  racterlal; 

->  (factarlal^  S)<CR> 

..  5*4*3*2*1  ;=  120 

120 

The  operation  of  zarap  can  be  observed  using  trace,  os  follows: 

->  (trace  zerap)<CR> 

(aatalaaO  /asr/lib/lisp/trace] 

Ifacl  /Bsr/lib/lisp/trace.a] 

;;  The  tracer  returns  a  list  of  functions  being  traced. 

(zarap) 

Now,  every  time  that  zarap  is  used  its  associated  values  are  shown: 

->  (factarial  5)<CR> 
f  <EBter>  zarap  (5) 

I  <EBI1>  zarap  ail 
I  <EBter>  zarap  (4) 

I  <EIII>  zarap  ail 
I  <EBtar>  zarap  (3) 

1  <Eli1>  zarap  ail 
1  <Eataf>  zarap  (2) 

1  <EII1>  zarap  ail 
1  <EBtar>  zarap  (1) 

I  <EII1>  zarap  ail 
1  <EBter>  zarap  (•) 

1  <EXIT>  zarap  t 
120 


For  discussions  of  these  areas  see: 

(Foderodo,  1983,  Chapter  1 1  iTracerl,  Chapter  14  [Stepper), 
Chapter  15  [Debugger]  and  Chapter  16  [Editor]) 

(Wilensky,  1984,  Chapter  1 1  [Debugging]) 

(Chamlak,  1985,  Section  2.8  [Debugging]) 

(Winston,  1984,  Chapter  14  [Debugging]) 


4«  Defined  in  Section  II.C.3.f. 
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(S8t«  i■t0i«r  (ll-l  i■teserlln2<CR> 

2 

Cfs  taapl 

(cMi  (Czerap  iateger)  (retain  resalt))) 
(zerep  iate§er)d<CR> 

;;  Go  into  debug  mode.  Usually  Invoked  with:  (debug) 

IfasI  /asr/lib/lisp/fia.el 

< - Mebag - > 

;;  Obtain  a  listing  of  debug  commands  using  help. 

:  belp<CR> 

u/un/uf/unf  go  up,  i.e.  more  recent 

(n  frames)  (of  function  f) 
up  /  up  n  go  up  to  next  (nth)  non- 

system  function 

d  /  dn  go  down,  i.e.  less  recent 

(opposite  of  u  and  up) 

ok  /  go  continue  after  an  error  or 

debug  loop 

redo  /  redo  f  resume  computation  from 

current  frame  (or  at  fn  f) 
step  restart  in  single-step 

mode 

return  e  return  from  call  with 

value  of  a  (default  is  nil) 
edit  edit  the  current  stack 

frame 

editf  /  editf  f  edit  nearest  fn  on  stack 

(or  edit  fn  f) 

top  /  bot  go  to  top  (bottom)  of 

stack 

p  /  pp  show  current  stack  frame 

(pretty  print) 

where  give  current  stack  posi¬ 

tion 

help  /  h  /  ?  print  this  table  -- 

/usr/1  i  sp/doc/f  i  xi  t.ref 
help  ...  get  the  help  for ... 

pop  /  *d  exit  one  level  of  debug 

(reset) 
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runcall-evalhook* 

evalliook* 

(zerap  iateper) 

(csaP  (<**>  (retain  reselt))) 
evalhook 

continue-evaluation 
f  uncal  1  -evalhook* 
evalhook* 

(ceatf  ((zerap  iatafar)  (ratara  resaltlll 
(prap  (rasalt)  (satp  resalt  1)  leap  ...) 
evalhook 

coot  i  nue-e  vol  ttot  i  on 
funcall -evalhook* 
evalhook* 

(pra§  (resaltl  (satp  rasalt  I )  leap  ...) 

(factarial  3) 
evalhook 

continue-evaluatlon 
f  uncal  1  -e  val  hook* 
evalhook* 

(factarial  3| 

;;  The  stack  has  LISP  system  function  calls  interspersed 
;;  with  the  factorial  function.  A  handy  feature  of  the 
;;  error  loop  is  that  the  current  variable  values  can  be 
;;  easily  obtained.  Showstack  returns  nil. 

all 

;;  What  is  the  "integer"  variable’s  value? 

<1>:  iateper<CR> 

2 

;;  What  is  the  "result"  variable’s  value? 

<t>:  rasBlt<CR> 

3 

;;  Leave  the  error  loop. 

<1>:  (rasat)<CR> 

Ilatara  ta  tap  laaall 

Hopefully,  this  very  brief  look  at  some  LISP  programming  tools  will 
encourage  the  user  to  experiment  with  them.  The  next  section  reviews  the 
salient  points  covered  up  to  now. 


•  Lisp  functions  (equivalent  to  subroutines  or  procedures  in  other 
languages)  are  data  objects  that  can  be  passed  as  parameters  to  other 
functions.  This  makes  it  possible  to  write  extensible  control  structures  in 
user  programs  that  are  very  difficult  to  duplicate  In  more  traditicn.*] 
languages. 


'  A.TWi.’n.'f'lTi -r:  TIF ; r; »\^ii-j  r^r^a-^-rj  r:y.  i- 
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I.  Data  Abstraction  and  Macros 

Abstraction  of  low  level  functions  can  aid  understanding.  For 
example,  the  unmnemonic  car  might  be  renamed  lieoil; 

->  (defuB  bead  (alUar  a))<CR> 

bead 

->  (bead  '(■  B  C  B))<CR> 

a 

The  mnemonic  quality  of  this  new  function  is  offset  by  the  overhead 
of  having  a  user  defined  function  calling  a  LISP  system  function.  The  LISP 
function  car  takes  one  instruction,  but  a  user  defined  function  takes  five  or 
more  instructionsKBrooks,  1984,  pp.  179-180) 

Since  data  abstraction  is  an  important  programming  tool,  the  cost  of 
the  extra  function  calls  in  compiled  code  is  removed  by  the  use  of  macros. 
"A  macro  is  a  function  which  accepts  a  Lisp  expression  as  input  and  returns 
another  Lisp  expression."  (Foderodo,  1983,  p.  8-3) 

A  macro  is  efficient  because  it  creates  code  that  the  LISP  interpreter 
evaluates  only  once.  Subsequent  calls  to  the  macro  use  the  expanded  code 
(Wilensky,  1984,  pp.  180-195).  The  function  defmacro  (define  macro]  is 
one  of  three  ways  to  create  a  macro  (Foderado,  1983,  p.  8-3).  For  example; 
<macro-name>  :;= 

->  (defmacre  <macro-name>  (<argument>*)<LISP  form>*)<CR> 
<macro-name>  ;:= 

->  (def  <macro-name>  (macro  (<argument>)<LlSP  form>*))<CR> 
<macro-name> 

->(defaB  <macro-name>  macro  (<argument>)<LISP  form>*)<CR> 
A  macro  is  applied  Just  like  a  function: 

<value>  ::=  ->  (<mocro-nome><porameter>*)<CR> 
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the  backquote  macro:  expressions  ore  not  evaluated  unless  specified. 
(Foderado,  1983,  pp.  8-3,8-4)  The  symbol  for  inhibiting  evaluation  is  “  $  *, 
for  evaluating  “  ,  “  and  for  evaluating  and  splicing  into  a  list  ' 
(Wilensky,  1984,  p.  202)  These  symbols  can  be  applied  in  succession,  as 
composite  operators,  and  are  summarized  in  Table  3.1  below; 

TABLE  3. 1 

8ACKQU0TE  MACRO  SYMBOLS 

^mM  Function 

$  Inhibit  one  level  of  evaluation 

,  Evaluate  (within  the  context  of  “  $  ”) 

>•  Evaluate  and  append 

$,  or  ,$  No-ops,  they  can  be  removed.'^ 

,•$(  )  or  )  No-ops 

K.x)  (list  al 

|(,x  .•y)  (caas  a  g)  [y  must  be  a  list] 

$(,#x  ,«y)  (appaai  a  g|[x  &  y  must  evaluate  to  lists] 

$(,#*x  ,P‘y)  (appeal  *a  'g)  [x  and  y  must  be  lists] 

So  for  example,  if  the  variable  i  is  set  to  have  as  its  value  the  list 
(I  2  3),  the  effect  of  “  $  ", and  %•’  can  be  observed: 

->  (satq  a  '(I  2  3))<CR> 

;;  The  variable  "A“  is  assigned  the  list "  (1  2  3) "  as  a  value. 

(12  3) 

->  $(a  ,a  ,«a)<CR> 

“  A  ■  is  unevaluated,  “  ,A  '  is  evaluated, "  ,PA  "  is  evaluated  and 
;;  spliced  into  the  list  structure. 

(a  (1  2  3)  I  2  3) 


4  ->  $((a  b)  (C  D)  .•‘(a  f)  .•*(S  a))<CR> 

;;  ’  ,P* "  acts  as  a  composite  operator  ,p(quote  (<orgument>)) 
;;  So,  first  apply  quote,  and  then " 

((a  b)  (C  B)  a  f  G  B) 
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The  backquote  macro  is  frequently  used  in  writing  macros.  It's  used  to 
create  a  template  of  the  code  the  macro  will  provide  to  eual,  for  example: 

->  (defmacro  head  (H)  $(car  ,H))<CR> 

;;  Equivalent  to:  (defmacro  head  (X)(list  'car  X)) 

head 

These  ideas  are  all  brought  to  fruition  when  functions  that  generate 
other  functions  are  made.  A  good  example  is  the  defstruct  [define 
strueturel  macro.5  This  macro  consists  of  two  levels.  The  lowest  level 
creates  the  desired  function  according  to  a  template.  The  upper  level 
evaluates  the  function  that  was  created.  A  brief  sketch  and  a  bit  of  the  LISP 
code  demonstrates  the  idea:^ 

evai 

•  I 

defstruct 
/  \ 
eval  eval 

/  \ 

defstruct-short  defstruct-long 
Figure  3.1  The  Defstruct  Function  Hierarchy 
The  code  that  follows  reflects  the  structure  in  Figure  3.1.  There  is  a 
main  eval-ivhen  form  that  evaluates  the  defstruct  function.  This 
function  in  turn  has  two  eual'OPhen  forms  in  it.  They  will  either  evaluate 


9  See  Section  III.C  for  more  detail  on  defstruct. 

6  The  reader  should  skim  through  this  code  looking  at  how  the  evaluation 
statements  are  nested  with  macro  or  function  definitions.  Look  at  the  code's 
form  and  the  extent  that  it  "shows*  the  macros  it  is  generating.  The  LISP 
function  eeel-uplien  tells  the  interpreter  or  compiler  to  evaluate  this  code 
when  it  is  loaded  into  LISP. 


As  on  example,  a  list  with  fields  "name"  and  “age“  will  be  called  a 
"man'.  Examining  the  results  from  the  bottom  up  shows  how  functions  are 
first  created  and  then  evaluated  Into  the  LISP  environment.  First  the  lowest 
level  functions  defstnict-sliort-fieMs  and  defstinct-replace- 
fields  create  macro  definitions  In  the  following  fashion: 

*>  (defstinct-shert-flelds  'nee  ineoie  age)  1  )<CR> 

;;  Since  there  ore  two  fields  two  selector  macro  definitions 
;;  are  made.  They  are  returned  In  a  lIst.The  results  are; 

;;  A  macro  definition  that  selects  the  name  field;  man-name. 

((daf  oiaa-Baraa  (nacre  (b8dg)$(car  ,(cadr  body)))) 

;;  A  macro  definition  that  selects  the  age  field:  man-age. 

(daf  naa-age  (macro  (bodg)$(cadr  ,(cadr  body))))) 

->  (defstmct-replaca-flalds  'maa  '(aame  age)  1  )<CR> 

;;  Since  there  are  two  fields  two  mutator  macro  definitions 
;;  are  made.  They  are  retutTied  in  a  list. 

;;  A  macro  definition  that  replaces  the  name  field  with  a  new 
;;  value  is  created  and  colled  replace-mon-nome. 

((daf  raplace-maa-aama  (macro  (bady)$(appand 
(list  ,(caddr  bodg))(cdr  ,(cadr  badg))))) 

;;  A  macro  definition  that  replaces  the  age  field  with  a  new 
;;  value  Is  created  and  named  replace-man-age. 

(daf  raplaca-moB-aga  (macro  (badg)$(append 
(list  (car  ,(cadr  badg)),(caddr  badg)) 

(cddr  ,(cadr  badg)))))  ) 


The  above  results  are  now  spliced  Into  a  list  of  macros: 

->  (defstroct-sbart  'maa  '(oama  aga))<CR> 

;;  The  macro  definitions  ore  spliced  into  a  list: 

((daf  make-maa  (macro  (badg) ... ) 

(daf  maa-oama  (macro  (badg) ... ) 

(daf  maa-age  (macro  (badg)  ... ) 

(daf  raplaca-maa-aame  (macro  (badg) ... ) 
(daf  replace-maa-oga  (macro  (badg) ... ) ) 
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(i«f  tf0fstnict-laii§ 

(lanbila  Ctgpa  badg) 

Ccoad  Unall  badg)  0) 

((or  (noil  (cdr  body)) 

(list?  (cor  bodg)) 

(otooi?  (codr  bodgll) 

(orr  'llaoolid  dofstroct  tgotooD) 

(t  (oppood  (coos  (list  *dof 

(caocat  'oiako-  (car  bodg) tgpo) 
(list  *Bacro 
'(bodg) 

(list  'coos 
"list 

(list  'coos 
(list  'list 
"gooto 
(list  'gooto 
(cor  bodg))) 

'(cdr  bodg))))) 

(coos  (list  'dot 

(caocat  'Is-  tgpo  '-  (car  bodg) '?) 
(list  'oiocro 
'(bodg) 

(list  'list 

"og 

(list  'list 
"car 

'(cadr  bodg)) 

(list  'list 
"gooto 
(list  'gooto 

(cor  bodg)))))) 

(oppood 

(dofstroct-loog-flelds 
tgpo  (cor  bodg)  (cadr  bodg)  2) 
(dofstroct-roplace-fiolds 
(caocat  (car  bodg) '-  tgpo) 

(cadr  bodg) 

Figure  3.3  The  dofstroct-loog  Definition  Without  Dackquote 


colled  an  organelle  which  is  covered  In  Chapter  VI.  (Siskind,  1982.  pp.  14- 
15)(L1ncoln  Lab  Report  662,  1983,  pp.  25-26) 

TABLE  3.2 

NUMERICAL  COMPARISON  PREDICATES 


■0 

equality  with  zero 

<0 

negative  sign 

>0 

positive  sign 

>-0 

non-negative  value 

<-0 

non-positive  value 

<- 

less  than  or  equal 

>- 

greater  than  or  equal 

O0 

not  equal  to  zero 

O 

not  equal 

-1 

equality  with  one 

In  addition  to  the  numerical  comparison  macros  shown  above, 
lincoln.l  has  several  macros  that  perform  type  checking, 
b.  Type  Predicate  Macros 

LISP'S  applicative  nature  allows  functions  to  be  passed  as  data  and 
provides  data  handling  flexibility  at  the  expense  of  performing  very  little 
type  checking.®  (Gray,  P.,  1984,  p.  til)  Whereas  In  LISP  predicates  usually 
hove  the  form  <nome>p,  in  linconl.l  they  have  the  form  <nome>?.  Take  for 
example  a  LISP  and  a  lincon.l  predicate  that  checks  If  a  number  Is  odd: 

->  {m44p  3)<CR> 

;;  LISP  predicates  often  end  In  a  *  p  ’. 

I 


®  For  a  discussion  of  type  checking  see  (Aho,  1986,  pp.  343-380). 


B.  FUNCTIONS 


APL  was  one  of  the  first  programming  languages  to  apply  functions 
over  whole  data  structures,  thereby  freeing  the  programmer  from  the 
tedium  of  Iterating  over  elements  ^  John  Backus,  one  of  FORTRAN'S  creators, 
wanted  to  reason  algebraically  about  programs  and  suggested  applying  API's 
Ideas  In  a  purely  functional  manner  The  operations  of  this  algebra  would 
consist  of  applying,  binding,  selecting,  "composing,  reversing,  mapping  and 
reducing  functions."  (MacLennan,  1983,  p.  405) 

Several  functions  are  shown  here  as  examples  of  the  many  useful 
functions  with  an  APL  flavor  In  this  section: 

->  (s«ch-tliat '(  •  -1  f  -2  -3)  '<8)<CR> 

;;  (such-that  <11st>  <predicale>) 

;;  Return  all  list  elements  satisfying  the  predicate. 

(-1  -2  -3) 

->  Cslasi  '<(•  k  cMi  c  m  kMa  f  f  k))  ail  ‘aaioa)<CR> 

;;  (slash  <11st>  <1dent1ty>  <funct1on>) 

;;  Return  the  result  of  applying  a  function  to  a  list's  elements. 

Ca  k  c  8  e  f  9  k) 

->  (sort  '(1  4  2  5  3  f)  •>I<CR> 

;;  (sort  <11st>  <pred1cote>) 

;;  Sort  a  list's  elements  by  a  predicate. 

(9  5  43  2  II 

->  (car-list  *((l  21(3  41(5  il)l<CR> 

;;  (car-list  <list>) 

;;  Find  the  first  element  of  each  of  a  list's  sublists. 

(I  3  51 


9  For  an  excellent  APL  user's  guide  see  (IBM,  1983,  p.  13). 


k. 


ji** 


->  (nthset'list 
11  4  6) 

'(Sad  is  tbe  nioman  upha  cries  alaag  the  uiag.) 
mmm  simgs'i  )<CR> 

;;  (nthset-list  <index-li8t>  <template-list>  <new-0lement-list>) 
;;  Replace  the  indexed  positions  in  the  template-list  with  the 
;;  respective  elements  from  the  new-element-list. 

{Mm00§  is  the  mmm  aiha  simgg  alaag  the  oiag.) 


3.  Set  Functions 


A  LISP  list  can  be  viewed  as  a  set  with  elements,  e.g.: 


{  element!,  element2. ...,  elementN }  ;==  (<element>*) 
<set>  ::=  <11st> 


With  this  point  of  view  in  mind  lincoln.1  provides  a  variety  of  set 


operators: 


->  (setifg  ‘((a  hMa  h  c1/##/(a)  2  'a 

;;  (setify  <list>) 

;;  Remove  redundant  elements  from  a  list.  Notice  that  (a  b)  and 
;;  (a)  occur  more  than  once  in  the  list.  Italics  are  for  emphasis. 

((a  h  cKa  h)  2  'a  (al) 


->  (aaiaa  '(1  2  3  41 12  3  5  4  d  7))<CR> 

;;  (union  <set>i  <set>2) 

(1  2  3  45  S  71 


->  (iatersactiaa  '(1  2  3  4  5|  '(3  4  5  6))<CR> 

;;  (intersection  <88t>t<set>2) 

(3  4  5) 


->  (set-  11  2  3  4  5)  12  4))<CR> 

;;  (set-  <set>,  <set>2) 

;;  Remove  set2  elements  from  setf. 

(1  3  5) 


I 


1?^ 


i 


The  wide  spectrum  of  functions  seen  in  this  section  crop  up 
throughout  MocPItts  and  LBS.  Surprisingly  enough  though,  a  large  portion  of 
the  functions  encountered  In  these  programs  are  generated  by  one  macro; 

iefstnict. 


C.  DEFSTRUCTS12 

The  llncoln.1  diafstnict  [define  strecture  macro]  allows  the  user  to 
create  new  data  types.  It  automatically  generates  macros  to  create,  select, 
change  or  type  check  instances  of  the  data  type.  The  following  quote  states 
the  Idea  of  a  structure  (Winston,  1984,  p.  100): 

Conceptually,  a  structure  \z  a  collection  of  fiefds  and  field  vefues . 
We  are  allowed  to  define  new  structures  by  specifying  their  particular 
field  names  and  default  field  values.  We  are  further  allowed  to  construct 
Individual  structures  of  any  already  defined  type,  to  access  those 
Individual  structures,  and  to  revise  them.  However,  In  keeping  with  the 
spirit  of  data  abstraction,  we  are  not  allowed  to  look  at  the  way  individual 
structuresare  represented  internally,  for  we  are  supposed  to  be  isolated 
from  the  actual  representation. 

•efstracts  are  frequently  used  throughout  LBS  and  MacPItts.  They  are  a 
useful  tool  when  a  large  number  of  different  data  types  must  be 
manipulated.  The  iefstinct  macro  creates  short  or  long  data  structures. 

1.  Short  Defstructs 

The  short  tfefstinct  has  the  following  format; 

<short  form>  ::=  (<f1eld>*  I  { <f1eld>*<11st> }) 

<f1e1d>  .:=  <symbol> 


^2  Refer  to  the  examples  In  Section  III.A.2.  Llncoln.l's  tfefstnict  macro 
Is  slightly  different  from  those  found  In  other  versions  of  LISP. 


Notice  that  the  result  ts  a  list  with  all  the  field  values  placed  in 
the  order  they  were  entered. 

b.  Short  Selector 

■afstrict  also  creates  selector  macros  to  obtain  field  values.  A 
short  selector  macro  that  picks  out  <f1eld>{  of  a  <type>  short  defstruct  has 

the  format: 

<short-selector>  <type>-<f1eld>^ 

<f1eld-value><  ::= 

->  (<type>-<f1eld><  {*C<fle1d-value>+)  I 

(list  [']<f1e1d-value>'^)}  )<CR> 

For  example: 

->  (paiat-aaae  '(!■  3  7  NH  ((sigBal)(river))))<CR> 

;;  Get  the  point's  name: 

la 

>>  (paiat-attrikatas  '(ass  -2  7  NB  ((paaparl(8Bt)HI<CR> 

;;  Get  the  point's  attributes: 

((paaiarMaatl) 

c.  Short  Mutator 

The  third  macro  automatically  generated  for  a  short  Befstinct  Is 
used  to  change  field  values.  Mutators  replace  a  <type>  defstract's  <fjeld- 
value>{  with  <f1e1d->7^H>‘*va1ue>f  and  have  the  following  form; 

<short-mutaton  ;:=  replaca-<type>-<f1eld>{ 
(<f1eld-volue>t...<f1eld-y7»w**-value><  ...<f1eld-volue>N)  ::= 

->  (raplac8-<type>-<f1eld>f 

{ ’(<f1eld-value>'*')  I  (list  [*I<f1eld-value>*) } 

{ I'J<f1eld-/7,Pj+-volue><  })<CR> 


In  both  the  short  end  long  structure  cases  defstnict  Is  used.  A  long 
defs tract  example  with  a  tree  genus  and  eight  species. 

->  (defstract  tree 
■ell  0 

rect  (leger  left  ketteei  rigkt  tep) 
sgoifeel-cell  (eeaie) 

■eee  (tree  da  dgl 
retcoi  (tree) 
retccai  (tree) 

Biirroni  (tree) 
oiirreni  (tree))<CR> 

This  long  structure  creates  a  tree  data  type.  There  are  eight  tree 
cases:  eall,  rect,  sgnbel-ceil,  oieve,  rotcw,  rotccop,  mirrom  and 
aiirren|i3.  Note  that  five  of  the  tree  coses  have  a  tree  in  their  field.  The 
field  arguments  are  also  defstractsi  A  long  structure  has  four  associated 
functions:  constructors,  selectors,  mutators  and  interrogators, 
a.  Long  Constructor 

As  in  the  short  structure,  macros  to  construct  data  type  instances 
ore  automatically  generated  in  the  long  structure.  A  constructor  that 
instantiates  the  species  <cose^>-<type>  has  this  format: 

<1ong-constructor>  ::=  aieke-<cose><-<type> 

(<case>i  «cose><-field-volue>*)  ::= 

->  (aieke-<case>r<type>  { I']«cose>i-field-volue>)+)<CR> 


’^These  eight  cases  correspond  to  eight  basic  operations  on  rectangles. 
Nall  is  no  action  or  no  rectangle,  lect  is  a  rectangle  with  the  given  layer 
and  dimensions.  SgoikaHcall  represents  a  method  for  generating 
hierarchical  representation.  Mave,  retc»,  rotccop,  oilrroni  and 
oiirrarg  represent  respectively  a  displacement  by  dx  and  dy;  ninety  degree 
clockwise  and  counterclockwise  rotation;  and  a  flip  about  the  x  axis  or  the  y 
axis.  The  operators  these  trees  represent  ore  described  in  (Crouch,  1984.  p. 


<long-mut8ton  ::=  repl«ca-<cose>r<type>-<f1elcl>j 
f<case>{ 

«cas8><-<field><-valu8> ... 

«cas8>r<fi8ld>j-/?^M^value> ... 

«cas8>i-<fl8ld>N-valu8> ) 

->  (replace-<ca8e>|-<typ8>-<f i 8l  d>j 
{■<<ca88>i  «ca88>rfi8ld-valu8>+)  I 
(list  {  I*1<C888>4  }{ (■I«cas8>i-f1eld-value>  }♦ ) } 
{I‘]«ca8e>r<fi0ltl>j-/7i?j+-valu8>}  )<CR> 

This  is  b8st  ssen  in  a  fsw  sxampiss: 

~>  (replacp-rect-tree-tap  ‘(rest  NM  1  2  3  4)  I5)<CR> 

"  replac8  a  Yect-tree"  speciss*  "top"  field  with  15. 

(reel  NM  1  2  3  15) 

->  (r8plac8-aio0e-tree-4g 

'(ai888  (r8Ct  1  2  3  4)  9  8) 

1f)<CR> 

;;  replace  a  "move-tree"  species*  "dy"  field  with  1 1. 

(ai8«8  (r8Ct  123  4)  911) 

The  tr88  example  has  shown  that  a  long  structure  adds  a  level  of 
complexity  to  the  88fstnict  concept.  Why  bother?  Because  there  is  a  big 
advantage  to  be  gained  in  grouping  similar  ideas  together  and  then 
differentiating  between  them.  In  order  to  do  this  a  long  d8fstract  also 
creates  interrogators. 

d.  Long  Interrogator 

Long  structures  offer  a  limited  form  of  data  type  checking  with 
their  interrogator  macros.  A  check  to  see  if  a  structure  is  a  <case>r<type> 

species  can  be  made  as  follows: 


Triij!  other  check  that  is  made  ensures  that  only  the  last  field  in  a 
defstrucl  is  a  list.  This  uccurs  in  deretruct-sSiort'’fieSils  arid 
ilefstruct-Iung-fiiiids  where  the  fields  are  also  checked  to  be  not  erTiutu. 

4.  Summary 

defstruct  offers  the  programmer  a  tool  for  data  abstraction.  This 
idea  along  with  the  mnemonic  character  of  constructors,  selectors, 
mutators  and  interrogators  are  great  aids  in  data  manipulation,  defstrucis 
are  extensively  used  in  LBS  and  MacPitts.  It  might  also  be  speculated  that  to 
some  degree  the  mind-body  paradigm  is  reflected  in  MacPitts'  function-data 
language  and  controller— data-path  architecture,  in  any  case,  Table  34 
presents  a  defstruct  summary; 

TABLE  3.4 

DEFSTRUCT  FUNCTION  SUMMARY 


Function 

Constructor 

Selector 

Mutator 


inake-<type>  niak8-<ca3e>i-<type> 


<type>-<field>i  <case>i-<type>-<f1eld>j 

replace-<type>-<field>i  replace-<C33e>j-<type>- 


Is-<type>-<cas8:,? 


\ 


Interrogator  None 


TABLE  4.1 

GLOBAL  VARIABLES  AND  THEIR  FUNCTIONS 


Variable 

--LS-symliol- 

storage 

— LS-tacbaologg 


(LS-sgnliol- 

starage) 

(techaalagg) 


Status  Modifier  &  Potions 

(L5-sgmbaHstarage! 
[‘]{<aB-disk  I 
iD-manaan|>}) 

(tecbaalagg!  [‘]{<nnias 
I  cnas  I  cmas-pui  I 
cmas3  I  sasi  scmas>}) 


— LS-atinimum- 
feature-size 


(minimani- 

featara-size) 


Cmiaimuni-feature- 
size!  <cent1-ii  per  \>) 


— LS-sgmbal-list  (LS-sgiabal-list)  & 

(creata-called- 

sgnbal-iteai 

<pos1t1on>) 

— LS-sgmbal-  — LS-igmbal- 

Bunbar  auaibar 

-"-LS-sgoibal-part  (LS-sgoibal-part) 

— LS-sgmbal-fila  (L5-sgBibal-fila) 


(add-sgmbal-ta-LS- 
sgoibal-list  <symbol>) 


(satq  — L5-*gnibal- 
Dombar  <1nteger>)  & 
(sgmbal-numbar) 
(satq  — LS-sgmbal- 
part  <port>) 
(satq  — LS-sgnibal- 
fila  <f11e>) 


(allawad-lagars)  •• 

(allawad'-canducting-  »» 

lagars) 

(lagar-tabla)  •• 

(allaved-tacbnalagias)  »• 


All  Of  the  global  variables  can  be  changed  using  satq.  Functions  with, 
**,  operate  by  checking  the  technology  global  variable  and  returning  an 
appropriate  response  without  setting  any  variables.  The,  denotes  that  to 
change  the  values  returned  by  these  functions  the  LISP  source  code  has  to  be 
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->  (LS-syinbol-'file)<CR> 

This  file  is  used  to  output  CIF^  results. 

/tmp/LSsym  1 2904 

->  (L5-sgnibsl-p«rt)<CR> 

;;  A  port  is  a  LISP  I/O  device. 

X/tmp/L5sgni  1 2904 

->  (tecbnology!  ‘cinos)<CR> 

Set  the  technology  to  cmos  and  list  out  its  layers. 
"These  symbols  correspond  to  GIF  layers,  e.g.  CD  =  n-type 
"diffusion,  CP  =  polysilicon,  CM  =  first  layer  meta! ,  etc.. 

(CO  CP  CM  CM2  CS  CC  C6  CIO  NH  HP) 

r>  (tecbiielogg)<CR> 

"The  current  technology  is  complementary  metal  oxide 
"  semiconductor 

cmos 

'>  (tecbnologg!  ‘scmos)<CR> 

"These  are  Calma  scalable  cmos  CIF  layers,  e.g.  CMS  = 
"metal2,  CMF  =  metal  1,  CP6  =  polysilicon,  etc., 

(CMS  CMF  CP6  COO  COO  CCP  CCB  CHIP  COIN 

CSP  CSN  COG) 


->  (minimum-fealure-size!  SO)<CR> 

"  Set  50  centimicrons  to  be  1  lambda  unit. 

50 

->  (minimom'feature-size)<CR> 

;;  Currently  50  centimicrons  are  1  lambda  unit. 

50 


3  The  Caltech  Intermediate  Form  (CIF  Version  2.0)  is  a  means  of 
describing  graphic  items  (mask  features)  of  interest  to  LSI  circuit  and 
system  designers."  (Mead,  1980,  p.  115)  Also  see  (Sequin,  1980,  Chapter  7) 
and  (Scott,  1986,  Magic  Tutorial  *9  and  Magic  Technology  Manual  ♦1-2). 


99 


All  L5  data  structures  are  created  using  defstnict.  The  generic 
object  in  L5  is  called  an  itea  and  is  composed  of  rectangles  and  labels. 
(Crouch,  1983,  p.  2)  Since  an  itea  is  a  grouping  of  smaller  objects  it  is 
surrounded  with  an  imaginary  rectangle  (box]  which  encompasses  all  its 
elements.  The  smallest  box  which  encloses  on  itea  is  called  the  Minimum 
Bounding  Box  (MBBl.  (Ayres,  1983,  p.  64)  The  syntax  for  an  itea  is: 

TABLE  4.3 
AN  ITEM'S  SYNTAX 
CfiifigfiCy  Syoifijl 

<item>  ::=  (<1eft><bottom><r1ght><top><points> 

<colled-symbol-nomes><tree>) 

(<1eft>|<bottom>| 

<right>l<top>}  <number> 

<points>  ::=  C<point>*| 

<point>  ::s  (<nome><x><y><ottr1butes>) 

<attributes>  ::s  { (<symbol>*)  I  ({|<symbol>)}*) } 

<called-symbol- 

names>  ::=  C<number>*l 

<tree>  :;=  { <null-tree>  I  <rect-tree>  I  <symbol-call-tree>  I 

<move-tree>  1  <rotcw-tree>  I  <rotccw-tree>  I 
<mirrorx-tree>  1  <mirrory-tree> } 

<nul1-tree>  (eelll 

<rect-tree>  ::=  (rect  :(loy8r><left><bottom><right><top>) 

<symdol-coll- 

tr8e>  ::=  (sialiel-cell  <number>*) 

<move-tree>  (aeve  <tree>) 

<rotcw-tr8e>  (retca  <tree>) 

<rotccw-tre8>  Cretcca  <tree>l 

<mirron<-tree>  ::=  (airreni  <tre8>| 

<mirrory-tre8>  (airrerf  <tree>) 

An  itea  structure  contains  two  other  structures  within  it:  a  list 

of  peiet  short  structures  and  a  tree  long  structure.  First,  a  look  at  the 

itea  structure  and  the  creation  of  a  simple  itea: 
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As  is  seen  in  the  above  example,  a  list  of  points  is  a  field  in  an  item. 
The  paiat  short  structure  is  implemented  as  follows; 

-y  (defstruct  paint  (name  n  y  layer  attributes)) 

A  point  is  a  label.  Points  have  names,  are  located  at 
;;  a  specific  x  and  y  location  and  are  attached  to  a  layer. 

;;  A  point's  attributes  can  give  descriptive  information 
;;  to  guide  functional  application.  For  example;  points 
;;  with  the  attribute  “extemar  are  actually  plotted  when 
;;  CIF  is  created;  the  power  attribute  is  used  by  the 
;;  function  power-line-positions  [in  the  MacPitts  program 
;,  organelles.l]  to  find  Vdd  or  Vss  locations  .  These 
;,  positions  are  then  used  by  layout-metal-lines  [in 
;;  organelles.l)  to  lay  down  a  metal  line  grid, 
replace-puiut-attributes 

An  example  now  shows  the  creation  of  a  paiat: 

->  (make-paiat  ‘(ia)  1  2  CM 

'((paapar)(aataraal))) 

;;  Make  a  point  whose  name  is  "in“,  located  on  CMOS  metal 
;,  at  (I  2),  and  with  "power'*  and  "external"  attributes. 

(da)  1  2  CM  ((pomar)(eHtaraal))) 

An  item's  fifth  field  is  a  summary  of  other  items  used  to  construct 
the  item.  This  <called-symbol-names>  field  is  composed  of  a  list  of 
numbers.  These  numbers  represent  symbols.  A  symbol  is  a  structure 
containing  an  item's  salient  information.  Computer  time  and  memory  use  are 
reduced  when  frequently  used  items  are  constructed  once  and  then  referred 
to  whenvever  needed.  Whenever  an  item  is  made  using  the  dafsymbol 
function  [See  Section  IV.C.l],  a  pseudo-item,  a  symbol,  is  placed  in  the  LS- 
symbol-list.  Any  use  of  this  item  will  be  reflected  in  the  <called-symbol- 
names>  field;  these  numbers  indicate  a  symbol's  position  in  the  L5- 
symbol-list.  A  symbol  has  the  following  structure; 


B.  ITEMS  AND  THEIR  OPERATIONS 


The  iten  data  structure  is  the  basic  building  block  in  L5.  However, 
having  to  use  the  Mke-iten  function  can  be  a  bit  tedious.  Therefore,  L5 
has  primitive  functions  for  creating  rectangles  [or  boxes]  and  marks  [a 
paiat  that  has  an  Iten  format].  L5  also  has  operators  for  moving,  rotating, 
etc.,  items  and  their  peiets.  Items  and  merks  can  be  grouped  together  to 
form  larger  units  using  the  merge  function. 

- t.-rterntreatton 

L5  has  four  functions  for  creating  primitive  items:  eull-item,  rect, 
kea  and  mark: 

TABLE  4.4 

FOUR  PRIMITIVE  ITEM  CREATING  FUNCTIONS 
Function  Arguments 

aall-item  none 

rect  ^]^y^F><x,^^><y,f,^><Xn^jo(><y„^> 

kea  <1ayer><length><width><Xc^t^><yc,nt#r> 

mark  <name><x><y><1ayer><attributes> 

Some  examples  of  these  primitive  functions  are: 

->  (aall-item)<CR> 

;;  A  null  item  is  useful  as  a  default  value  for  a  conditional  since 
;;  it  has  an  item's  format  with  only  null  fields  [Crouch,  1983,  p.5] 

(ail  ail  ail  ail  ail  ail  (aalO) 

->  (rect  ‘CP  P  1  4  P|<CR> 

;;  A  rectangle  has  no  points  or  symbol  calls,  it  consists  of  its 
;;  MBB  coordinates  (0  1)  and  (4  8)  and  a  rect-tree. 

_ (P  I  4  P  all  ail  (rect  CD  P  I  4  PF) 

Note  the  difference  between  the  <LISP  form>,  (rect  'CD  P  1  4  P|,  and 
the  <expression>,  (rect  CP  P  1  4  P).  The  first  is  a  function,  the  second  is  a 
data  object.  The  first  evaluates  its  arguments,  the  second  is  a  list  of 
parameters.  Refer  to  Section  II.C.1. 


TABLE  4.5 

TRANSLATION  AND  MERGING  OPERATORS 


Function  ArgummU  Descriotign 


<1tenft><(lx><dy>  move  on  Item.by  dx  and  dy  units 
bam  <1tem>  place  Item's  top  left  at  (0  0) 

first-  <1tem>  place  Item's  bottom  left  at  (0  0} 

qaairaat 

sacaatf-  <1tem>  place  Item's  right  bottom  at  (0  0) 

fiairaat 

— Urtrt- - - - ^Iace41em's-rtgbt4op-at40-0) - 

^aatfraat 

faartb-  <1tem>  same  as  home 

taairaat 

Biarfa  <item>‘^  make  one  Item  out  of  several  Items 

■arfa-llst  (<1tem>‘^)  make  one  Item  out  of  a  list  of  Items 

allfB  <1tem>  move  an  Item  so  that  the  named  point 

<po1nt-name>  Is  placed  on  the  given  coordinate 
<coord1nate> 

alifa-itaais  <1tem>t  <1tem>2  Is  moved  so  that  Its  named 

<po1nt-name>i  point  aligns  with  <1tem>t's  point 
<item>2 
<po1nt-nome>2 

rate*  <item>  rotate  90*  clockwise  about  (0  0) 

rates V  <item>  rotate  90*  counter-clockwise . . . 

Biirrani  <1tem>  mirror  about  the  x  axis 

Biirrani  <1tem>  mirror  about  the  y  axis 


A  brief  look  at  the  application  of  some  these  functions  follows: 

->  (aiaaa 

'(•  •  It  It  ail  ail  (ract  NN  1 1  It  1t|)  3  5)<CR> 
;;  Move  the  metal  rectangle  to  the  right  3  units  and  up  5  units. 

;;  Notice  how  only  the  MBS  Is  changed  [addition  and  consing 
;;  elements  Into  a  list  are  fast].  I.e.  The  result  of  the  operation 
;;  could  have  been:  (3  5  13  15  nil  nil  (rect  NM  3  5  13  15)),  but 
;;  If  the  tree  was  composed  of  many  elements  then  each  one 
;;  would  need  to  be  moved  alsol 

(3  5  13  15  ail  ail  (aiaaa  (ract  NH  1 1  It  It)  3  5) 


UMBJi.ma  niMmiiinpiiiiiwiin 


a  f  ■»  w  11  wwa^J  y  ’  ?  i? 


Function 

C0BtaiB 


TABLE  4.7  (CONTINUED) 

POINT  OPERATORS 

Arguments  Description 

<item>  prepend  the  given  neme  to  every 

<name>  point's  name  in  the  item 


The  following  examples  show  how  point  operators  woit.  The 
lagBBt-lBBerter  introduced  in  Section  IV.B.2.B  is  again  used  here.  This 
time  the  +5  Volt  power  point  is  extracted  from  the  item: 

->  CfiBi  (iBiBBt-iBBBltBr  4  tl  *bBB)<CR> 

;;  Find  the  first  point  named  "vdd"  in  a  layout-inverter  Refer  to 
;;  the  previous  example  for  (layout-inverter  4 1). 

HmM  •  -2  NH  (pBflPBr» 

A  more  complex  item,  IbibbI-mB,  is  shown  below  [Figure  4.4): 

ClB|BBt-BBB  4  4  tl<CR> 

;;  Another  MacPitts  organelle.  This  one  'ends'  two  inputs.  Note 
;;  that  the  organelle  colls  <8ymbol>Si  ,4^^, 9  &io-  It  itself  is 
;;  <symbol>to.  The  list  (1  46  8  9  10)  shows  the  symbols. 

(B  -43  25  B 

(((BbBI  IB  -I B  NH  (pBBPBr)) 

UbBBI  B  -2  NH  (pBBPBr)) 

21  -41  NH  (pBflPBr)) 
aiBl)  f4-43NP  (iB)| 
aiB2)  I9-43NP  Urn}} 

((bBBI  B  -25  NH  (pBBPBrl) ) 

Cl  4iB9  IB) 

CsbbiBbI-cbII  IB) ) 

Since  this  item  has  more  than  one  -^5  Volt  power  point,  they  can 
be  extracted  using  the  following  procedure: 

->  CAbB-bII  CIbbbbI-bbB  4  4 1)  'bBB)<CR> 

;;  Find  all  points  named  'vdd'  in  a  layout-and  item. 

CCCbBB)  B  -2  NH  CpBflPBr))CCBBB)  B  -25  NH  CpBBPBr))) 
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iiraiv  vjiwa.i  iS'M  isiii  U-UVLi'iiijM  VJW-" 


->  (let 

Ut0St-lteH 

*(••54 

(((!■)  2  3  N^  (sHtenial  top)) 

(CoOO)  1  I  NH  (powor  loft  floor)) 

((oot)  3  3  NP  (oMtoinol  tifool  top)) ) 

(1  2  3) 

(sgoibol-coll  3) ) ) ) 

(floO-ottribotos  tostHtooi  '(ootorool  top))  )<CR> 

;;  Find  all  points  with  “extemar  and  “lop"  as  a  subset  of  their 
;;  attributesJ2  This  method  uses  attributes  to  find  points. 

(((io)  2  3  NP  (ootorool  top)) 

((oot)  3  3  NP  (ootorool  sifool  top)) ) 

After  a  point  has  been  used  it  is  sometimes  desirable  to  remove  it 

from  the  item.  There  are  several  functions  that  accomplish  this.  Here  are 

two  examples  of  how  to  remove  one  point.  The  first  method  requires  that 

[  the  entire  point  be  specified  as  follows: 

->  (oooiork 

(logoot-looortor  4 1) 

'((goi)  I  •  - 1  •  NN  (poopor))  )<CR> 

;;  Remove  the  point  from  the  item. 

(•  -2g  2g  • 

(((oM)  •  -2  NN  (pooler)) 

(dot)  l4-2eNP  do))) 

(1  4  0  7) 

(sgoibol-coll  7) ) 

The  second  way  to  delete  a  point  is  to  use  its  name: 


12  The  attributes  could  be  a  list  of  lists  instead  of  a  list.  In  that  case 
when  flotf-ottrlOotes  is  applied  the  attributes  parameter  has  to  be  a  list 
of  lists.  If  the  points  are  of  the  form: 

((<name>)  <x><y><1ayer>(  ((<ottribute>*)} )) 

Then  to  use  floO-ottrlgotet: 

(floO-ottrlbotes  <item>  ’((<8ttribute>A)...(<attrlbute>|.))) 
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->  (let 

((test-iteM 
'(■•3  4 

(((!■)  2  3  NN  ((eeteinelMteplll 
((»4i|  1  I  NM  ((peeperMleftHriverl)) 

((eet)  3  3  NP  ((eeterealMtffeelMtepI)) ) 

(1  2  31 

(s|Bbal-call  3))  H 

(■■■ark-attribetesHlst  tett-iten  ‘((leftMtep|)||<CR> 

;;  Remove  any  points  that  have  ‘left*  or  “top*  as  part  of  their 
;;  attributes.  The  river  attribute  refers  to  the  river  router.’^ 

(■  i  3  4  eil  (I  2  3)(siaibel-cell  3)) 

Once  an  Item  has  been  created.  It  may  be  desirable  to  give  all  Its 
points  a  common  name.  By  doing  this,  point  functions  that  use  a  name  as  an 
argument  to  search  for  points  will  find  all  points  with  the  common  name. 

>>  (ceeteie  (laieet'cei  4  4 1)  ‘eei-l)<CR> 

;;  Prepend  the  name  "and-r  to  every  point’s  name. 

(i  -43  25  i 

(((Mtf-1  fpil  If  -ti  NH  (pwer)) 

((Mtf-f  »««)  i  -2  NM  (p«pp«r)| 

((■■•-I  fail  21  -41  NH  (paver!) 

((aai-l  ial)  14  -43  NP  (la)) 

((aa4-1  ia2)  If  -43  NP  (ia)) 

((aa4-1  aM)  i  -25  NM  (paver)) ) 

(1  4iif  1i) 

(sgvbal-call  If) ) 

Labels  [paiats  or  varks]  are  useful  as  references  to  direct  other 
functions.  Notice  how  the  next  function,  lapaat-flags’^,  gives  each  of  Its 
points  a  *  river  *  attribute.  These  labeled  points  can  then  be  used  by  the 
riaar  function  to  connect  them  to  other  Items. 


14  See  Section  lv.B.2.d. 

15  This  function  Is  found  In  the  MacPItts  program  flags.1. 


32S0  0  -  Sca1«i  1  micron  Is  0.009434  Inches  (240x) 


fplot*  Vtndowi  0  86M  0  11600 - Scalct  1  .niter on  Is  0.4(51724  Inches  (1314x1 

ver-5-polnts 


I.Defsumbols 

In  order  to  save  memory  and  time,  L5  has  a  define  sgeibel 
[delsgnftel]  macro  which  treats  items  In  a  fashion  similar  to  a  subroutine. 
The  defsiafeel  macro  hoe  the  following  syntax: 

<def  symbol -nome>  ::= 

->  (daff gabel  <def symbol -name>(<orguments>)<L5  form>)<CR> 
<L5  form>  :;=  { <11ncoln  form>  |  <LISP  form>  I  <L5  form>  }* 

When  an  itaa  that  has  been  defined  as  a  defsgabal  Is  colled  with  a 
set  of  arguments  It  Is  saved  os  a  sgabel  on  the  L5-sgabel-list.  Then,  If 
It  Is  called  again  by  another  function  with  the  same  parameters,  the  LS- 
sgabal-llst  Is  searched  for  the  sgabel  representing  the  itea.  The 
position  of  the  sgabel  In  the  L5-sgabel-llst  Is  returned  and  placed  In 
the  called-sgabal-eaaes  field  of  the  itea. 

If  the  defsgabal  has  not  been  called  with  the  given  set  of 
parameters,  then  a  sgabel  corresponding  to  the  defsgabel  will  be  placed 
on  the  L5-sgabel-llst. 

There  are  other  effects  of  using  a  defsgabel  that  depend  on  whether 
the  LS-sgabeMIst's  value  Is  ie-aeaenp  or  ee-dlsk.  If  It's  set  to  ie- 
aeaerg  then  the  ilea's  tree  Is  saved  as  port  of  the  sgabel  that  Is 
placed  on  the  LS-sgabel~llst.  On  the  other  hand.  If  It's  set  to  ee-dlsk, 
then  the  Itea's  tree  Is  not  stored  os  part  of  the  sgabel:  the  tree  Is 
converted  to  GIF  and  output  to  the  L5-sgabel-file.  These  two 
possibilities  and  their  effects  are  summarized  In  Figure  4.7: 


The  storage  location  has  been  set  to  iB-menian|.  A  look  at  how  a 

iefsgnksl  works  is  now  taken: 

->  Ctf0fS|BkOl  liBttiBg-CBBtact  0 
(■ergs 

(rect'NMg  -§4  i| 

(rect'Ng  g-4  4  i) 

(rect'NP  •-§4-31 
(reel  'NC  1  -5  3  -1)  )  )<CR> 

;;  A  butting-contact  is  one  of  L5‘s  def symbols. 

•■ttlBg-caatact 


->  (•■ttiBg-caBtact|<CR> 

;;  Create  a  butting-contact  item.  Notice  it  calls  <symbo1>t  in  the 
;;  L5-symbol-list  (itself). 

(g  -i  4  i  Bil  Cl  MsgaiM-call  1 )) 

What  happened  to  all  the  layout  information  in  the  battiBg- 
CBBtact?  It  has  been  placed  on  the  LS-sgaibBl-litt. 

->  CLS-sgBibBl-lltt|<CR> 

;;  The  L5-symbol-list  only  contains  a  symbol  for  butting-contact. 
;;  symbol- ID  :s  (butting-contact  4) 

;;  symbol-nest-level  :s  i 

;;  symbol -tree  :=  ((rect  NM  0  -6  4  0)...(rect  NC  1  -5  3-  0) 

CCCkatliBg-CBBtact  41  •  -i  4  i  ail  ail  1 
(CrectNHg-i  4  •) 

CractNg  g-4-4  g| 
erect  NP  •-•  4-3) 

CractNC  I  -5  3-1)))) 

A  •efsgaibal  can  be  retrieved  as  a  function  from  the  L5- 

tgaibal-lisf  using  the  LS-iteai-te-gregraBi  function  using  this  syntax: 

Cdef  <function-name>  ClaaiMa  ail  <L5  form>*))  ::= 

->  CLS-iteai-ta-pragraai  <item  form><function-name>)<CR> 

<item  form>  ::=  { <item>  I  <defsymbol-name> } 
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->  (iefsfflibtl  lagaat-inverter  (ratio I  mark?) 

(lot 

((tfiffosioo 

(marga 

(moaa  (4iff-cot)  1i  -16) 

(mark  'gai  1i  -It  'NH  '(pamer)) 

(caod 

((-  ratiol  4)(ract  ‘Nl  7  -It  16  -16)) 

(t  (roct  ‘Nt  7  -2t  16  -16))))) 

(gate  (rect  'NP  13  -2t  15  -14)) 

(mark 

. .  (nniit 

(mark?  (mark  ‘iai  14  -2t  'NP  ‘(la))) 

(t  (aoll-item))))) 

(marga  diffotioo  gate  mark  (lagoat-pallup))))<CR> 

;;  The  desymbol  macro  returns  a  name. 

lagoot-ioaerter 

If  many  large  Items  are  placed  on  the  L5-sgmhol-lltt  and  all 
their  trees  are  also  placed  there,  the  list  quickly  becomes  unwieldy.  An 
alternative  is  to  keep  all  the  other  information  In  the  L5-sgmfeal-list, 
convert  the  Item's  tree  to  CIF  and  place  the  CIF  in  the  L5-sgmbal-fila. 
b.  aa-tisk  Storage 

This  storage  mode  reduces  the  L5-sgmfeol-lists  size  by  changing 
the  Item's  tree  to  CIF.  It  Is  useful  when  items  don't  need  to  be  retrieved 
from  the  L5-sgmbal-list  with  their  trees  [for  example,  the  l5-ltem-to- 
pragram  function  will  only  create  a  program  out  of  a  symbol  if  Its  tree  Is 
on  the  L5-sgmbal-list;  simllary,  the  Caesar  conversion  routines  {Section 
IV.C.3)  also  require  la-memarg  storage). 

An  example  can  be  examined  after  resetting  all  the  global 
variables  using  the  start  function.  First  the  L5-sgmbal-starage  Is  set 
to  aa-disk  and  the  effect  compared  with  the  results  of  Section  IV.C.I.a. 


When  the  Qii-dlsk  storage  mode  is  used,  an  item's  tree  is  sent  to  the 

LS-siafe«l-file  os  CIF.  A  brief  look  is  now  taken  at  the  CIF  result  from 

the  previous  example: 

->  (L5-S9aibal-flle)<CR> 

/tBip/L5s9iH2a374 

->  (eMac  cat  /tBip/L5s9Bi2a374)<CR> 

- ;-;-exec  allows ilN I functions  tn  be  performed  from  LISP.  In  this 

;;  case  the  contents  of  the  L5-symbo1-fi1e  are  concatenated  to 
;;  the  terminal.  The  following  is  CIF  output.  CIF  uses  "  ( "  and  “ )  “ 
;;  for  comments. 

OS  1; 

(define  <CIF  symbob  named  1); 

(aaaia:  battiao-caatact); 

(CIF  comments  are  not  printed  out); 

L  NH;  i  L  1000  «  1500  C  500,  -750; 

(since  this  was  output  with  250  centimicrons  =  lambda); 
(all  the  units  must  be  divided  by  this  amount); 

(CIF  defines  its  rectangles  like  L5  does  its  boxes:); 

( <layen<length><width><Xc„t,r><yc#irtfr>); 

((box  ■NM46  2-3) ); 

L  NO;  0  L  1000  OP  1000  C  500,  -500; 

( (box  'NO  4  4  2  -2) ); 

LNP;OLIOOOOP  750  C  500, -1 125; 

( (box  'NM  4  3  2  -3) ); 

L  NC;  0  L  500  01  1000  C  500,  -750; 

((box  •NM2  42-3) ); 

OF; 

(end  <CIF  symbob^ 's  definition); 

The  function  that  L5  uses  to  create  CIF  has  the  following  format: 
<flle>.elf  ::=  ->  (cifaat  {(•l<item>Hl'l<f11e>}{'<title>‘})<CR> 


aesar 


.£•  L5 

c1f2cai5  cifout 

V-CIF-^^ 


b«i 

7 


Figure  4.8  Caesar,  L5  and  CIF  Conversions 
There  are  several  functions  associated  with  the  Caesar  editor.  Table 
4.8  gives  a  synopsis  (Crouch,  1983,  pp.  17-18); 

TABLE  4.8 
CAESAR  FUNCTIONS 

EUDfilM  Arouments^o  Description 


<item><f1le> 


disvlag  <ltem> 


£■•■1  <1tem><f1le> 


£•!■ 


<f11e> 

<caesar  f11e> 
<L5  f11e> 


Converts  an  <1tem>  Into  Caesar  format,  the 
Caesar  editor  Is  Invoked  and  the  results  of 
the  session  are  saved  In  the  <f1le>  as  Items. 

Displays  the  <1tem>  in  Caesar  without 
generating  any  L5  code  afterwards. 

Outputs  the  <1tem>  In  Caesar  format  to 
<f11e>.£a 

Reads  In  a  Caesar  formatted  file  and 
converts  It  to  L5  code. 

Converts  a  <caesar  f11e>  Into  L5  code  and 
saves  the  result  In  <L5  f1le>.  Each  Caesar 
symbol  is  made  Into  an  L5  d8fs§Rikal. 


This  Is  a  Berkeley  CAD  conversion  program  from  CIF  to  Caesar  format. 
A  minor  problem  with  this  present  scheme  Is  that  Caesar  evolved  Into  the 
more  versatile  Magic  system.  The  routines  need  to  be  modified  to  use  Magic 
format  Instead  of  Caesar  format. 

20  All  of  these  functions  ore  fexprs,  therefore,  none  of  the  arguments  ore 
quoted. 


V. 


The  reader  has  seen  how  a  group  of  LISP  object  files  can  be  loaded 
together  to  create  a  LISP  envIronmentMhIs  chapter  shows  how  a  top-level 
function  Is  used  to  make  an  environment  accessible  with  parameters.  In 
other  words,  the  environment  will  be  Invoked  just  like  other  UNIX* 
commands.  Two  programs  that  contain  top-level  functions  are  top.1  [LBS]  and 
prepass.l  [MacPIttsl.  in  addition,  these  programs  contain  the  ‘compilers’  for 
LBS  and  MacPItts.  A  look  at  these  top-level  programs  brings  to  light  major 
differences  and  similarities  between  LBS  and  MacPItts. 

A.  THE  TOP-LEVEL 

1.  Franz  Usd's  Default  Too-Level 

A  top-level  function  creates  the  prompt-read-eval -print  loop.The 
user  can  call  the  top-level  function  and  can  create  a  prompt-read-eval -print 
loop  with  different  characteristics.  To  do  this,  the  user  defines  a  new  top- 
level  function  and  types  (reset)  to  run  It.  (Foderado,  1983,  p.l3- 
iKWIlensky,  1 984,  p.  138) 

When  the  imperative  corpmand  lisp  Is  given  to  UNIX*,  the  Interpreter 
is  brought  into  action  with  its  default  top-level:  freez-tep-leee|2.  This 
occurs  because  the  variable  tep-leeel  is  bound  to  freez-tep-level. 

^  See  the  discussion  in  Chapter  11  Section  B.2.b. 

2  Defined  In  /usr/1lb/11sp/top1evel.1 
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The  top-level  file,  top.l,  is  composed  of  several  LISP  functions.  The 
first,  chlp-ttp-level,  performs  a  check  of  the  arguments  used  when 
Invoking  "chip”.  If  there  are  no  arguments  then  the  "chip"  dumplisp 
environment  Is  called  up.  If  there  are  arguments,  then  these  are  passed  on  to 
the  chlp-csapilsr  function.  The  user  should  note  that  cliip-tap-level 
was  set  to  be  the  top-level  function  In  the  example's  makefile  above. 

In  other  words,  the  "chip"  dumplisp  environment  has  a  function,  chip- 
tsp'level,  which  handles  the  arguments  placed  In  the  command  line  when 
'chip'  Is  Invoked.  Notice  that  If  no  arguments  are  given,  then  a  message  Is 
printed  out  and  the  user  Is  placed  Into  the  "  chip  ‘  dumplisp  environment. 
This  feature  can  be  used  for  debugging  purposes  [See  Footnote  3  of  this 
chapter],  A  look  at  this  function  follows: 

chip-tap-leipel  0 

;;  If  “chip"  Is  Invoked  without  any  arguments: 

((-I  (arp*!! 

;;  (argv)  gives  the  number  of  elements  on  the  command 
;;  line  that  Invoked  this  LISP.  So,  If  the  user  types: 

;;  %  chip  <orgumenti><orgument2><argument3> 

;;  then  (argv)  :=  4 

(pataa 

"■sapa:  chip  <filaBaBie>  [captiaao]*) 

;;  (patom  <express1on>(<port:  default  to  screen>]) 
;;  print  out  the  expression: 

;;  usage:  chip  <f11ename>  [<opt1ons>] 

;;  The "  ( "  and "  1 "  Indicate  an  optional  argument. 

(terpr) 

;;  (terpr)  or  (terpri)  terminates  printing, 
icatp  asar-tap-laaal  0) 

;;  The  variable  user-top-level  Is  set  to  nil,  but 
;;  notice  that  In  the  makefile  It  was  set  to  chip 
;;  top-level.  Therefore,  If  chip  Is  colled  up 
;;  without  arguments,  then  chip-top-level  colls 
;;  up  the "  chip "  dumplisp  environment 


;;  ->  (count  5) 

;;  (12  3  45) 

(emit) ) 

The  next  function  is  set  up  In  the  makefile  to  handle  interrupts.  When 
an  iterrupt  is  received  it  prints  out  "cliip-iRteiTvptr,  the  signal  number 
and  then  exits  the  "chip”  dumplisp  environment.  Here  is  the  code: 

chip-iBtemipt-haBtflar  CsigBal'BaaiPer) 

;;  This  is  used  in  the  makefile  as  the  function  that 
;;  handles  interrupts  (2),  floating  exceptions  (8), 

;;  alarms  (14)  and  hang-ups  (1).  (Wilensky,  1984,  p.  270) 

(PBtBBi  *  chipHBtemipt: 

(patBBi  sigBal-BBBifear) 

(tarpri 
(aaitl)  1 

The  previous  functions  allowed  the  user  to  invoke  the  "chip"  dumplisp 
environment  as  a  UNI command.  The  following  function  is  used  within  the 
"chip"  dumplisp  environment  to  pass  arguments  to  the  ckip-caaipilar 
function: 

(iaf  chip 

;;  The  nlambda  function  format  takes  many  arguments, 

;;  they  are  unevaluated  and  bound  os  a  list  to  the 
;;  function's  single  parameter.  For  example: 

;;  ->  (chip  odder  cif  obj) 

;;  then  args  :=  (chip  adder  cif  obj) 

(BlBBihtfa  Urgsl 
;;  (chip  <fi1ename>  (<option>*]) 

;;  <option>  ::=  (nostat  I  noobj  I  nocif  i  mag} 

;;  <defoult  option>  ::=  stat  obj  cif 
(chip-caaipilar  args) ) ) 

The  next  function  coordinates  other  programs  in  order  to  produce  the 
different  types  of  output,  it  first  uses  the  prBcess-aptlBB  function  to  set 
the  global  variable,  aptlaa-list,  to  the  options  that  hove  been  input.  Then 
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other  hand,  there  may  be  other  options,  besides  the  default  values,  which 
the  user  can  input.  The  following  function  examines  the  options  the  user  has 
input  and  updates  the  option**list  as  required: 

iMmn  pracets-tptiaa  (optiaa) 

Ccaad 

((■•t  (•!•■?  •ptiSB)) 

(■araiap  ‘tptlM  Mt  atain'H 

;;  Options  must  be  atoms. 

(Caatf  (>  (leafth  (aaplaPp  aptiaa))  2) 

(e^aal  *m  (car  (eaplade  aptiaa))) 

(e^aai  *a  (catfr  (eaplaia  aptiaa))) ) 

;;  Is  the  option  more  than  two  letters  long  and  its 
;j  first  two  letters  an  "n“  and  “o"  [the  option  is  of  the 
;;  form:  noXXX]?  Explode  separates  an  atom  Into  the 
;;  characters  that  compose  It  (Implode  Is  its  dual). 

(caai 

;;  Is  the  rest  of  the  option  (i.e.  excluding  the '  no '] 

;;  in  the  option  list? 

((aiaaihar? 

(iaplaie  (citfr  (aaplada  aptiaa))) 
aptiaa-list ) 

;;  Drop  the  option  from  the  option-list. 

(sal4  aptiaa-list 

;;  Remove  the  indexed  element  from  the 
;;  option-list. 

(athtfrap 

;;  Find  the  index  of  the  option  without  the 
“  no "  in  the  option-list. 

(lata 

Ciaiplaie  (cdir  (eaplade  aptiaall) 
aptiaa-list ) 
aptiaa-list ) )) ) 

;;  Otherwise,  If  the  option  is  not  of  the  form  noXXX, 

;;  then  odd  it  to  the  option  list. 

(t  (caad  ttaat  taieaiPer?  aptiaa  aptiaa-list)) 
(sat^ 

aptiaa-list 

(caas  aptiaa  ap 


iaa-list) )))))) 


expressions.  This  "obj"  formst  is  then  used  by  [called 

by  lagsit-ckip]  or  [used  in  the  Caesar  section]  to  create 

the  array. These  ideas  can  be  seen  in  the  Implementation  of  IBS's  compiler. 
The  Ifet-caaipiler  function  assumes  that  an.  Ibs-tep-l8«el.  Ibs- 
iBtemipt-liaBtflflr  and  lbs  function  are  available  [See  Section  V.Aj.  IBS's 
compiler  has  the  following  format: 

(tfefaa  Ibt-caapilsr  (args) 

(caaP 

;;  If  the  arguments  aren't  empty,  then  process  them. 

((aat  (aall  argsll 

Caiapcar  ‘pracass-aptiaa  (sir  argsl ) 

(brag 

;;  Define  local  variables. 

(ia-flle  stat-fila  caet-file  abj-file  aat-file 
iapart  statpart  caaspart  abjpart  bs  chip  I 
(setg  ia-fila  (caacat  (car  args)  Mbs)) 

(setg  stat-fila  (caacat  (car  args)  '.stat)) 
(self  caas-llla  (caacat  (car  args)  '.ca)) 

(satg  abj-fiia  (caacat  (car  args)  '.abj)) 

(setg  aat~fila  (car  args)) 

;;  Check  that  the  input  file  is  not  empty  and  then  pro- 
;;  proceed  to  process  the  input  file. 

(caag 

;;  Probe  the  input  file  to  see  if  it  has  anything  in  it. 

;;  If  it's  not  empty  then  turn  it  into  the  in  port. 

((prabaf  ia-fila) 

(satg  iapart  (iaflle  ia-fila)) 

(setg  statpart  (filaapaa  stat-file  ’dp)) 

;;  The  boolean  input  format  is  converted  to  a 
;;  formal  showing  connectivity  and  logical 
;;  relationships. 

(setg 

bs 

(baal-ta-straps  (reatf  iapart)  statpart) ) 

;;  Check  the  options  and  produce  the  ones  desired. 

(caag 

;;  Produce  the  intermediate  "obj"  format. 


LBS  has  a  simple  architecture  based  on  implementing  combinational  logic 
circuits  in  CMOS.  MacPitts  is  a  larger  program  with  many  more  possibilities. 

C.  MACPITTS5  COMPILER 

The  increase  in  complexity  from  LBS  to  MacPitts  can  easily  be  seen  in  the 
syntax  used  by  the  latter  program.  A  glance  through  MacPitt's  5NF  shows 
that  it  incorporates  concepts  such  as:  fanctioa,  macro,  port  (n-bit  data], 
si§aol  [t  or  f  data],  register  [datapath  storage],  flag  [signal  storage], 
orgaaelle  [functional  unit],  test  [e.g.,'  *  or  >g],  etc..  MacPitts,  unlike  LBS, 
requires  that  I/O  pads  be  specifically  declared  [that's  why  <pin-numbens 
are  used  to  specify  their  location).  Again  it  should  be  noted  that  most  of 
these  ideas  are  implemented  as  defstracts.^  Skim  through  the  BNF  to  gain 
a  feeling  for  MacPitts*  syntax: 

TABLE  5.2 
MACPITTS  SYNTAX 

<MacPitt8  (program  <progrom-name><word-size> 

program>  ::=  (<eval>  1  <def>  I  <always>  I  <process>}+) 

<eva1>  ::=  (eoal  (compile  I  simolate  I  both}  <LISP  form>| 

<def>  ::=  (dof  <pin-number> 

{ poflpor  I  grooed  I  pbia  I  phib  I  phic}) 

<def>  ::=  (dof  <reg1ster>name>  register) 

5  Only  a  brief  description  is  given  here  of  MacPitts.  The  reader  should 
consult  Southard  [RVLI-3],  1903,  pp.  1-33  and  Siskind,  1981,  pp.  1-18. 

6  This  will  be  covered  in  more  detail  in  Chapter  VI. 


TA0LE  5.2  (CONTINUED) 
MACPITTS  SYNTAX 


Categonj  SyniUl 

<form>  ::=  <integeD  I  ^choracten"  I  <constant-nam0>  I 

<regist0r-nam8>  1  <port-nam0>  I 
(f  •  <form>)  I 
(call  <form>|  I 
(retani)  I 
(par  <form>*l  I 
(if  <form><form><form>)  I 
(caai  {(<cond1t1on><form>^)}'*’)  I 
(salt  <r0g1st0r-nam0><form>)  I 
(latf  <port-nam0><form>)  I 
(satp  <signal-nam0><cond1t1on>)  I 
(<function-name><formul8>+)  I 
<macro> 

<macro>  (aiacra  <macro-nam0>{siB§la  I  list} 

<LISP  form>^) 

<organ0ll0>  (argaaalla  <organ0ll0-nam0> 

<*control-lin0s><*paramet0rs><*t08t-lin0s> 

<r8SuU?><6EN  formxSIll  form>) 

<funct1on>  .:s  (faactiaa  <funct1on-nam0>  <org8n0ll0'nam8> 

({iatapar  I  baalaaB}*^) 

(<control-11n0>*M<param0t0r>‘^)<INT  fomn>+) 

<t0st>  (fast  <t0st'nam0><organ0ll0’nam0> 

({iatapar  I  baalaaa}'^H<contro1-1lno>*) 
(<p0ram0l0D+)<t0Sl-l  i  n0><  I  NT  f  or7n>) 

<cond1t1on>  1 1 0 1  <s1gna1-nam0>  I  (aab  <condit1on>’*’|  I 

(ar  <cond1t1on>'^)  I  (aat  <cond1t1on>)  I 
(aar  <condU1on>*)  I  (aaail  <cond1tion>'^)  I 
(aar  <cond1t1on>'*-)  I  (aqa  <cond1t1on>'^)  I 
(bit  <5U*>{<int0g0r>|<int0g0r  form>})  1 
(satq  <s1gnal-nam0><condition>|  I 
(<t0sl-nam0><form>+)  I 
<macro> 


i 


TABLE  5.3 

PREPASS.L  FUNCTION  SYNTAX 


Function  Syntflii 

prac8ss-<y> 

<y>  ::s  ( <z>  I  deflaitins  I  tfeflBitisB  I  coatrsl'liae  I 

paraaeter  I  test-liae  } 

<z>  ::s  <zz>-tfefiaitiaa 

<zz>  ;:=  {  paaiar  I  praaatf  I  phia  I  phih  I  phic  I 

rafister  I  flap  i  sipaal  I  part  I  aiacra  I  caastaat  I 
argaaalla  I  faactiaa  I  fast } 

aapaai-<YY> 

<YY>  ::s  { pracass  I  aiacra  I  fana-llst  I  fana  I 

caaipaaaat-llst  I  caaipaaaat } 

A  quick  look  Is  now  token  at  MocPitts'  compiler.  It  works  In  a  fashion 

similar  to  the  LBS  compiler.  First,  the  Input  forms  are  converted  to  “obj" 

format,  and  then  this  object  code  Is  transformed  Into  the  requested  options. 

Here  is  the  compiler  function: 

(iafaa  aiacpitts-caaipilar  (oparaaPs) 

(pra§  (fila-aaaia  fila  abjact  abj  itaai) 

;;  ptime  gives  run  and  garbage  collection  times. 

(satp  iaitial-ptiaia  (ptiaia)) 

;;  The  number  of  garbage  collections  that  occurred. 

(satp  iaitial-fccaaat  $gccaaat$) 

;;  If  the  operands  are  null  or  atoms  then  return  to  the 
;;  franz-lisp  top  level. 

(caaP  C(ar  (aat  (list?  aparaaPsI) 

(aall  aparaaPsI 

(aat  (ataia?  (car  aparaaPs)))) 

(pataai  "asapa:  (aiacpitts  <filaaaaia> 
I<aptiaas>l)') 

(tarpr) 

(ratara  0)11 

(satp  flla-aaaia  (car  aparaaPs)) 

j;  Set  the  optlonHIst  to  the  requested  and  uninhibited 
;;  default  settings. 
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Csetq  abj 
(■■k8-«bj8ct 
Cparge-librarg 

(8bj8Ct-(l8fiBiti8BS  8bj8Ct)  ) 
CBbJact-flBfs  8bj8Ct) 

UbJact-iBt8-*p8tb  abjact) 
Ubjact-caatral  abjactl 
Cabjact-piaa  abjactl  1 1 
(satk  fila 

(aatflla  (caacat  fila-aaaia  '.abj'll  I 
(pp-fana  abj  filal 
Ulasa  filal  1 1 
;;  Was  CIF  desired? 

(caatf 

Uaiaaibar?  *cif  aptiaa-listl 
(satb  itaai 

(catch  (lagaat-abjact  abjactl  aatal  I 
(caatf  ((Ball  itaaiKratara  (III  I 
(baralb  ‘latpatiaf  .cif  fila  "I 
(cifaat  itaai  fila-aaaa  fila-aaaial  1 1 
(statistic  (caacat  "Haaiaiii  asatf  - 
(/  (aiaaiaril  11241  ”IC*II 
(statistic  (caacat 
"CaaiplIatiaB  taak  * 

(qaatiaat 

(-  (car  (ptiaialKcar  iaitial-ptiaiell 
3111.1 1  '  CPI  niaates'  1 1 
(statistic  (caacat 

”Sarba§a  callactiaa  taak  ' 

(qaatiaat 

(-  (calr  (ptiaialKcalr  iaitial-ptiaiall 
3111.1 1  '  CPI  Biiaates'  1 1 
(statistic  (caacat 
'Far  a  tatal  af  ” 

(-  IfccaaatS  iaitial-gccaaatl 
*  garbaqa  callactiaBS*|  I 
(ratara  t|  1 1 

In  summary,  a  bird's  eye  view  of  IBS's  and  MacPItts'  compilers  shows  the 
relative  differences  between  the  two  programs.  MacPitts  has  a  more 
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VI.  ORGANELLES 

Chapter  V  contains  MacPitts*  syntax  and  Its  top-level  function.  MacPItts’ 
BNF  allows  the  user  to  define  functions,  macros,  tests  and  organelles  and 
use  them  when  writing  a  MacPitts  program.  Alternatively,  the  user  can 
modify  the  organelles.1  and  llprary  programs  and  remake  MacPitts.  In  this 
fashion  the  new  operators  become  part  of  MacPitts’  syntax. 

A.  OVERVIEW 

Before  showing  an  example  of  the  changes  that  are  made  In  MacPitts  to 
change  Its  syntax,  the  relationships  among  some  of  its  programs  and 
functions  need  to  be  pointed  out.  When  the  user  Inputs  a  <MacP1tts  progrom>, 
the  compiler  (located  in  prepass.il  parses  through  the  <MocP1tts  form>s.  The 
program  uses  Its  get-<x>,  prtcess-<y>  and  8MpaBtf-<yy>'  functions  to 
process  <def1n1t1on>s;  evaluate  <eval>s;  expand  <macro>s;  and,  obtain 
<source>s,  <dest1nat1on>s  and  <1abel>s.  This  Is  done  by  using  list  selectors 
to  disassemble  the  <MacP1tts  program>  while  checking  the  syntactic  labels 
that  were  used.  For  example,  the  words  Psf,  proani,  process,  macro, 
fooctioo,  etc.,  all  trigger  the  use  of  the  process-defloitloo  function. 
The  eool  and  process  labels  are  treated  separately.  The  functions  used 
during  the  parsing  process  to  obtain  <def1nlt1on>s  from  the  input  are  shown 
below: 


'  Refer  to  Section  V.C. 
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Preposs.)  is  coordinates  the  conversion  of  the  <MacPitts  program)  to  a 
layout  with  its  get-object  function.  This  operator  uses  subsidiary 
programs  (primarily  extract.il  to  produce  an  intermediate  result,  an  "  .obj 
file,  which  can  then  instantiated  into  the  silicon  mask  level  by  layout 
functions  (in  flags.l,  control.1  and  data-path.ll.  This  object  file  is  a 
iefstrect  with  the  following  definition: 

(defstinct  object 

(deflnitiees  Hogs  dete-petb  ceetrel  pies)) 

A  quick  look  is  now  taken  at  the  names  of  the  major  functional 
categories  in  prepass.l  and  its  helper  programs.  Skimming  through  the 
function  names  provides  a  “  feeling  "  for  MacPitts.  The  most  common 
operators  ore  summarized  by  program  in  Table  6.1. 

TABLE  6.1 

MACPITTS  PROGRAM  FUNCTION  SUMMARY 
Program  Function  Name  Format 

prepass.l  get-<x>,  precesi-<y>,  eepeed-<zz> 

extract.1  8etrect-<A> 

<A>  {  ceeipeBeet-list  I  process  I  form  I  stem  I 

list  I  strieg  I  fieeem  I  register  I  flog  I  port  I 
sigeel  I  iebel  I  go  I  cell  I  roture  I  etc. } 

frame.l  legoet-<B> 

<B>  ::=  ( Object  I  skeletee  I  wieg  I  eet  I  pies  I 
peeper-rieg} 

control.1  legeet-<C> 

<C>  { ceetrel  I  driver  I  mpe  I  register  I 

BPeleberger-<D>  I  etc. } 

<D>  {  getes  I  eer  I  eer-iepert  I  eer-ged-liee  I 

etc. } 

data-path.1  legeet-<E> 

<E>  { dete-petb  I  beses 


I  OBit  I  orgeeelle  I  etc. } 


creations  of  these  data  structures.^  The  functions  that  are  implemented  in 
the  library  are  only  constrained  by  the  designer's  imagination  and  a  bit- 
slice  regime. 

The  library  is  used  by  the  lookM~<>  function  to  correlate  a  function 
name  found  in  a  <MacP1tts  program>  with  on  already  created  functional  form. 
This  can  be  shown  in  a  simple  example.  Assume  that  the  library  is; 

->  (set4  lihrars  '((libraniHcoBStant  t  (aar)) 
(faactiaa  1-*-  »  ...)))<CR> 

Then  the  equality  test,  can  be  found  as  follows; 

->  (laakvp~test tlbrarg)<CR> 

;;  Find  the  “  =  “test  definition  form  in  the  library. 

(test  -  ...I 

In  summary,  MacPitts  relies  heavily  on  dafstracts.  A  <MacPitts 
program>  is  parsed  and  converted  into  a  dafstnict  called  an  object.  The 
five  portions  of  this  object  are  then  converted  into  L5  by  different 
programs.  A  particular  set  of  layout  functional  units  is  included  as  a 
defstract  which  contains  information  relating  the  unit  to  MacPitts'  syntax 
in  the  library.  A  corresponding  L5  layout  of  the  unit  is  found  in  organelles.l. 
L5  in  turn  is  a  language  composed  of  dafstracts  and  layout  operators. 

With  the  general  idea  in  mind  of  how  MacPitts  coordinates  its  various 
ports  to  produce  a  chip,  consideration  is  next  given  to  modifying  an 
organelle  and  implementing  it  functionally. 


*  In  Section  VI.B  on  example  will  be  traced  all  the  way  from  the  layout  to 
the  test  definition. 


B.  AN  EXAMPLE 

The  organelle  used  In  this  example  was  designed  by  Lieutenant  Anthony 
Mullarky  using  Magic.  The  approach  used  was  based  on  (Fox,  1983,  p.  32). 

Like  Fox,  a  modification  was  made  to  the  equality  test  organelle  to  reduce 
its  size  and  increase  its  speed.  The  organelle  is  implemented  so  that  its 
result  pulls  down  the  output  bus  to  Vss  when  the  test  fails.  Two  different 
cells  are  used;  bito  and  a  bit^.  The  zero  bit  organelle  is  a  one  bit  equality 

checker  tied  to  Vdd  in  order  to  precharge  the  output  bus  to  +5  Volts.  The  Nth 
bit  organelle  is  a  one  bit  equality  tester  without  a  pullup.  The  appellation  “ 

==  “  is  used  to  differentiate  this  equality  test  from  MacPitts' "  =  ". 

The  first  items  needed  are  an  or§aBelle-— bit-t  and  organella- 
bit-— bit-ii.  The  organelles  were  made  using  Magic  and  output  as  GIF.  The 
GIF  was  converter  to  Gaesar  format  and  then  into  L5  format.  The  two 
organelles  are  shown  in  Figures  6.4  and  6.5. 

These  two  organelles  are  then  incorporated  into  the  standard  MacPitts 
library.  Organelles.l,  the  compiled  portion  of  the  library,  is  composed  of  a 
default  set  of  MacPitts  functional  units  in  L5  format.  Adders,  decrementers, 
equality  testers,  etc.,  are  all  located  in  organelles.l.  The  L5  layouts  are 
usually  defsymbols  and  have  a  name  of  the  form:  lagbiit-<X>-orgBnelle. 

The  two  basic  zero  and  Nth  bit  items  were  made  into  defsymbols  without 
any  arguments. 

(iefab  lagsBt— •'orgaaelle  (ratis  bit) 

;;  Doesn't  use  the  ratio  input. 

(caag  (t-b  bitMargaaella— «■- bit-b)) 

(t  (argaaalla-— bit-a)))) 

.1 

I 

V 
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Since  "  ss  "  is  a  <l08t>  operator,  a  test  form  is  created  to  give  the 
organelle  functionality.  This  form  is  placed  in  the  library  along  with  the 
organelle  data  structure.  The  code  for  <test> "  ==  “  is: 

(test  -*■  —  (intafar  intagerl  0 

;;  <nome>  :s  =s,  <organelle>  ;=  ==, 

;;  <types>  ;=  (integer  Integer),  <control-lines>  :=  nil 
;;  <porameters>  :=  ((position  1)(posit1on  2)) 

;;  <test-line>  :=  (physical  1) 

Upasitiaa  O  (pasitiaa  2))  (physical  U 
;;  <int8rpret-form>  follows: 

(lambda  (form  mard-laagth  a  g) 

(coad  ((ar  (ag  a  ’aadaflaad-iatagar) 

(ag  g  ‘aadaflaad-iatagar)! 
'aadaflaad-baalaaa) 

((-  a  g)  ‘t! 

(t  ‘f)))) 

A  MacPitts  program  is  now  run  to  check  this  new  operator  (Figure  6.61. 

(pragram  flaa«-  4 

;;  Example  of  a  MACPITTS  algorithm  to  test  a  4-bit 
;;  integer's  equality  with  the  number  five. 

;;  <filename>  :=  flve==.mac 

(daf  1 1  pavar! 

(daf  I  graaad) 

(daf  2  pbia) 

(daf  3  pbib) 

(daf  4  pbic) 

(daf  la  part  iapat  (5  6  7  •)) 

Maf  aat  sigaal  aatpat  9) 

;;  A  reset  pin  is  needed  to  initialize  the  chip. 

(daf  rasat  sigaal  inpat  10) 

(pracass  egaalitg  0 

first 

(caad 

;;  If  ■  in  ■  is  -  ==  “  to  5  then  set  “  out  “  to  t. 

((»  ia  5)(satg  sat  t)(ga  first)) 

;;  Otherwise,  test '  in "  again. 

(t  (gs  first)) ) ) ) 


fplot*  Window!  81000  126000  95000  150000  -  Scalei  1  micron  Is  0.011  Inches  <279x1 


Figure  6.9  Closeup  of  «  Organelle  fiue-.niac 
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Thts  thesis’  goal  was  to  examine  L5  and  show  how  it  is  used  in  two 
silicon  compilers:  LBS  and  MacPitts.  The  thesis  showed  that  L5  is  an 
extension  of  LISP  specifically  aimed  at  VLSI  synthesis.  LISP’S  ability  to 
treat  functions  as  data  to  create  new  operators  was  found  to  be  the  basis 
for  the  versatile  defstnict  data  structure  generator.  The  main  result  of 
the  thesis  is  the  incorporation  into  one  document  of  enough  information  to 
enable  a  VLSI  designer  to  automate  portions  of  the  layout  process  or  change 
existing  MacPitts  functions  to  meet  other  needs. 

For  example,  an  examination  of  L5’s  layout  primitives  and  data 
structures  showed  its  compatibility  with  Caesar  and  CIF.  However,  since  the 
graphical  editor  now  being  used  at  the  Nava)  Postgraduate  School  is  Magic,  a 
method  for  using  this  format  with  LS  is  needed.  The  suggested  approach  is 
to  use  the  structure  of  L5  programs  that  convert  Caesar  into  L5  and  vice 
versa;  and  instead,  make  the  conversion  directly  from  CIF  to  L5.  This  would 
moke  available  a  larger  pool  of  circuits  which  hove  been  converted  to  CIF 
for  incorporation  into  the  compilers.  Additionally,  it  would  buffer  the 
system  from  other  changes  in  graphical  editor  file  format  since  CIF  is  a 
widely  used  format. 

Many  possible  changes  to  MacPitts  have  been  recommended  by  Carlson, 
Froede  and  Lorrobee;  among  these  suggestions,  is  to  allow  pin  locations  on 
all  four  sides  of  the  chip.  In  light  of  what  has  been  presented  in  this  thesis 
this  would  be  a  fairly  straightforward  alteration. 


A.  LAYOUT  ERRORS 


There  ore  two  types  of  errors  associated  with  layouts  created  from 
Macpitts:  either  the  code  has  been  improperly  written,  or  the  output  GIF  is 
being  plotted  at  the  wrong  scale. 

An  example  of  improper  code  is  the  erroneous  specification  of  Vdd,  Vss 
and  output  locations  when  a  new  organelle  Is  created.  In  Section  Vl.B  a  new 
organelle,  “  ==  was  Input  Into  MacPltts.  If  different  parameters  [shown  in 
Table  A.l]  had  been  specified  In  the  organelle  structure,  then  the  results  of 
Figure  A.l  would  result.  Notice  that  the  interconnecting  lines  have  all 
shifted  to  the  right  3  X  units. 


TABLE  A.l 


ORGANELLE  SPECIFICATION  COMPARISON 


CflTiaCt 

((eq  iBfa  'leagth)  51) 

CCeg  info  ‘witftli)  40) 
iimq  i>fa  'iapats)  '(2i  3f )) 
Ueq  iafo  'aOd)  '(43)) 

((eg  iafa  'gad)  '(0  20)) 

((eg  iafa  'daisg)  '(51)) 

((eg  iafe  'test)  '(51)) 


Erroneous 

iafe  'leagth)  52) 
iafe  'apidth)  40) 
iafa  'iapats)  '(20  31)) 
iafa  'add)  '(40)) 
iafa  'gad)  '(5  25)) 
iafa  'daisg)  '(40)) 
iafe  'test)  '(48)) 


Additionally,  the  organelle  length  was  specified  to  be  several  X  units 
longer  than  the  layout  actually  is,  to  prevent  the  output  line  (when  routed 
to  the  Weinberger  array)  from  shorting  with  the  clock  lines  [See  Figure  A.21. 


The  user  now  has  all  of  MacPitts  available  with  the  exception  of  the 
organelles  and  library. 

Instead  of  running  MacPitts  every  time  a  change  is  made,  the 
intermediate  object  code  will  be  modified.  Object  code  is  generated  when 
f1ve==.mac  is  run  in  the  following  manner: 

X  MCpittS  sbj  cif  BSiBt  BBBpt-C  BBBpt-tf 
BBStBt  fiBe-«.BIBC  t  >  tfBSb 

'Create  an  object  and  CIF  file.  Redirect  comments 
'to  a  trash  file. 

Now,  assuming  that  the  macpitts  environment  has  been  invoked  as 

shown  above  [X  Biacpitts],  two  local  files  that  contain  commands  to 

change  UNIX®  directories  and  plot  L5  items  are  loaded. 

->  CiBciBde  edit.ll 
llBBd  8ilit.ll 
t 

->  CiBClBde  pl8t.l) 

IlBBd  plat.l] 
t 

->  (BiiBiBiBBi-fBBtBre-sizel  200) 

200 

The  object  file  that  was  generated  by  MacPitts,  five=s.obj,  is  altered  by 
setting  its  data-path  and  controller  to  Bil.  After  editing  is  complete,  the 
new  file  is  called  pin-test.obj  and  is  shown  below: 

->  (BBBC  CBt  piB-tBSt.SbJ) 

;;  The  first  portion  of  the  object  is  definitions 

(((sBarce  resat) 

(replster  seM8*CBr-eqaalit§-state) 

Usarce  seqaeBcer-eqaalitg-state) 

(OestiBBtiaii  seqaBBcer-eqaalito-state) 


->  (thesis-plat  (lageut-object 

(reap  (iofile  *piB-test.ehj)))  'pin-test.ehj  t) 

;;  The  Standard  statistics  are  output,  except  the  control 
;;  unit  and  data  path  are  empty. 

Statistic  -  Ceatrel  has  •  csIbbibs 
Statistic  -  Circait  has  It  traasistars 
Statistic  -  Caatral  has  t  tracks 
Statistic  -  Paaiar  caasaaiptieB  Is  1.034114 
■atts 

Statistic  -  Oata-path  iateraal  has  ases  0  tracks 
Statistic  -  iiaiaasiaas  are  1.640000  bibi  by 
1.710000  aiBi 

;;  The  rest  of  the  output  is  related  to  the  plotting 
;;  function. 

->  Viaiaap:  0  164000  0  171000 

Scale:  1  aiicraa  is  0.002005  laches  (71a) 

The  plat  BPill  ha  0.30  feat 

This  plot  is  shown  in  Figure  A.3.  The  object  file  is  modified  again  to 
place  the  pins  in  different  locations: 

->  (aaac  cat  pia-tast-2.ahj) 

;;  A  random  pin  ordering  was  chosen. 

(((saarca  reset) 

(rayistar  saoaaacar-aqaalitg-state) 

(saarca  saqaaacar-aqaalitg-state) 
(Oastiaatiaa  saqaaacar-aqaality-state) 

(part  saqaaacer-aqaalitg-aeat-stata  Iateraal 

ail) 

(saarca  saqaaacer-aqaalitg-aaat-state) 
(Oastiaatiaa  saqaaacer-aqaalitg-aaat-state) 
(label  first  eqaalitg  0) 

(Oastiaatiaa  aut) 

Uaarca  first) 

(saarca  ia) 

(laga  flaa-) 

(BparO-laagth  4) 

(paver  II) 

(graaaO  1) 

(phia  2) 


179 


Hasemer,  T.,  Lookir 
Haugeland,  J.,  Artll 


I  Addlson-Wesley,  1984. 


I,  MIT  Press,  1965. 


Haugeland.,  J.,  editor,  Mind  Desi 
Intelligence.  MIT  Press,  3rd  ed.,  1985. 

Hon,  R.W.,  and  Sequin  C.H.,  A  Guide  to 
Research  Center,  1980. 


L  Basic  Books,  19B5. 


Xerox  Palo  Alto 


International  Business  Machines  (IBM)  Technical  Newsletter  GC26-3847-5, 
API  Language.  6th  ed.,  IBM  Corporation,  1983. 

Larrabee,  R.  C..,  VLSI  Design  with  the  MacPItts  Silicon  Compiler.  M.  S. 
Thesis,  Naval  Postgraduate  School,  Monterey,  California,  June  1985. 


MacLennan,  8.  J., 


Holt,  Rinehart  and  Winston,  1983. 


Lvaluation 


Mead,  C.  and  Conway,  L.,  2d  ed., 
Wesley,  1980. 

Ousterhout,  J.K.,  Editing  VLSI  C 


i,  Addlson- 


Ousterhout,  J.K.,  Editing  VLSI  Circuits  with  Caesar.  Computer  Science 
Division,  Electrical  and  Computer  Sciences,  University  of  California,  1985. 

Rosenberg,  J.M.,  Dictionary  of  Computers.  Data  Processing  and 
Telecommunications.  John  Wiley  and  Sons,  1984. 

Scott,  W.S.,  Hamachl,  G.,  Mayo,  R.N.  and  Ousterhout,  editors,  J.K.,  1985  VLSI 
Tools:  More  Works  by  the  Original  Artists.  Computer  Science  Division  EECS 
Deportment,  University  of  California  at  Berkeley,  1985. 

Scott,  W.S.,  Hamachl,  G.,  Mayo,  R.N.  and  Ousterhout,  editors,  J.K.,  1986  VLSI 
Tools:  Still  More  Works  bu  the  Original  Artists.  Computer  Science  Division 
EECS  Deportment,  University  of  Californio  at  Berkeley,  1986. 


183 


November  1983. 


Allen,  G.H.,  Denyer,  P.B.,  Renshaw,  D.,  “A  Bit  Serial  Linear  Array  DFT", 
Proceedings  of  the  IEEE  Conference  on  Acoustics.  Speech  and  Signal 
Processing  (ICASSP  84).  March  1 984. 

Allerlon,  D.J.,  Batt,  D.A.,  and  Currie,  A.J.,  "A  VLSI  Design  Language 
Incorporating  Self-Timed  Concurrent  Processes”,  lEE  European  Conference  on 
Electronic  Design  Automation  (EDA  84).  March  1984. 

Anceau,  F.,  “CAPRI:  A  Design  Methodology  and  a  Silicon  Compiler  for  VLSI 
Circuits  Specified  by  Algorithms”,  in  Bryant,  1983,  pp.  15-31. 

Anceau,  F.,  Aas,  EJ.  (editors),  ‘VLSI  83:  Proceedings  of  the  IF  IP  TC  WG  10.5 
International  Conference  on  Veru  Large  Scale  Integration.  North-Holland, 
1983. 

Anceau,  F.,  and  Schoellkopf,  J.P.,  "CAPRI:  A  Silicon  Compiler  for  VLSI 
Circuits  Specified  by  Algorithms”,  in  Randell,  1983,  pp.  149-54. 

Ayres,  R.,  “Silicon  Compilation-A  Hierarchical  Use  of  PLA’s”,  Proceedings  of 
the  16th  Design  Automation  Conference.  1979. 

Balrstow,  J.N.,  "Chip  Design  Made  Easy",  Hioh  Technolodu.  Volume  !5,  Number 
6,  June  1985. 

Baker,  A.,  "Selecting  a  Silicon  Compiler",  VLSI  Sustems  Design.  Volume  VII, 
Number  5,  May  1986. 

Baker,  S.,  "Silicon  Compilers  Puts  Systems  Houses  in  VLSI  Business”, 
Electronic  Engineering  Times.  No.  300,  8  October  1984. 


Bloom,  M.,  "Silicon  Compilation:  The  Fast  Track  to  Masks",  Electronic 
Enqlneerlno  Times.  Number  294,  1 3  August  1 984. 

Bond,  J.,  "Circuit  Density  and  Speed  Boost  Tomorrow's  Hardware",  Computer 
Design.  Volume  23,  Number  10,  September  1984. 

Bond,  J.,  “Future  Hardware",  Computer  Design.  Volume  23,  Number  10, 
September  1984. 

Brayton,  R.K.,  Chen,  C.L.,  McMullen,  C.T.,  Otten,  R.H.,  and  Yamour,  Y.J., 
"Automated  Implementation  of  Switching  Functions  os  Dynamic  CMOS 
Circuits",  Proceedings  of  the  1984  Custom  Integrated  Circuits  Conference. 
May  1984. 

Brayton,  R.K.,  Hachtel,  G.D.,  McMullen,  C.T.,  and  Songlovannl-VIncentelH,  A.L., 
Logic  Minimization  Algorithms  for  VLSI  Sunthesis.  Kluwer  Academic 
Publishers,  1984. 

Brown,  C.  "Silicon  Compilers;  How  Some  Lobs  ore  Trying  to  Implement 
Them".  Electronic  Engineering  Times.  No.  300,  8  October  1984. 


Them  .  Electronic  Enomeennq  Times,  no.  300,  B  Dciooer  iyB4. 

Bryant,  R.,  editor.  Third  Caltech  Conference  on  Veru  Laroe  Scale  Integration. 
Computer  Science  Press,  1983. 

Buric,  M.R.,  Christensen,  C.,  and  Matheson,  T.G.,  "The  Plex  Project;  VLSI  Lay 
outs  of  Microcomputers  Generated  by  a  Computer  Program",  IEEE 

International  Conference  on  Computer-Aided  Design _ (ICCAD-83). 

September!  983. 

Bursky,  D.,  "Circuit  Compiler  Cuts  Chip  Area  25  Percent  to  40  Percent  Over 
Standard  Cells",  Electronic  Design.  Volume  32,  Number  18,  6  September 
1984. 

Camegle-Mellon  University  Deportments  of  Computer  Science  and  Electrical 
Engineering  Technical  Report,  by  Berbocci,  M.  R.,  Barnes,  G.,  Cattell,  R.  and 
Slewlorek.  D..  The  ISPS  Computer  Description  Language.  16  August  1979. 


Camegle-Mellon  University  Departments  of  Computer  Science  and  Electrical 
Engineering  Technical  Report,  by  Barbacci,  M.  R.,  et.  al.  ,  The  SumboHc 


Lenouage.  March  1978. 
Capello,  P.  R.,  et.  a1.  editors. 


Mnq.  IEEE  Press,  1984. 


Carter,  T.M.,  Davis,  A.,  Hayes,  A.B.,  Lindstrom,  G.,  Klass,  D.,  Maloney,  M.P., 
Nelson,  B.E.,  Organick,  E.I.,  and  Smith,  K.F.,  Transforming  on  ADA  Program 
Unit  to  Silicon  and  Testing  it  in  an  ADA  Environmenr,  Digest  of  Papers 


Conference.  March  1984. 

Cham,  K.M.,  Oh,  S.-H.,  Chin,  D.,  and  Moll  J.L.,  Computer  Aided  Design  and  VLSI 
Device  Development.  Kluwer  Academic  Publishers,  1985. 

Cheng,  E.K.,  The  Design  of  an  Ethernet  Data  Link  Controller  Chip',  Digest  of 


Societu.  March  1983. 

Clary,  J.B.,  Denyer,  P.B.  (editors).  The  Impact  of  VLSI  on  Digital  System 
Design',  Systems  on  Silicon.  First  lEE  International  Specialist  Seminar  2. 
Peter  Peregrinus,  1984. 


Cline,  K.,  Cutler,  M.,  Kesselman,  C.,  and  Vork,  6.,  'Automated  Attribute 
Optimization  for  VLSI  Systems', 

ommunications.  IEEE 

Press,  1984. 


Collet,  R.,  'Silicon  Compilation;  A  Revolution  in  VLSI  Design', 
Volume  14,  Number  8,  August  1984. 


Computers.  IEEE  Press,  1982. 

Cory,  W.E.,  and  van  Cleemput,  W.M.,  "Developments  in  Verification  of  Design 
Correctness".  Proceedings  17th  Design  Automation  Conference.  1980. 


Curtis,  W.,  'Silicon  Compilation  Speeds  Design  of  Complex  Chips',  Computer 
Design.  March  1985. 


Curtis,  W.,  "Designing  the  Micro-VAX  Using  Silicon  Compilation",  COMPCON 
’85  Computer  Conference.  IEEE  Computer  Society,  1985. 

Cuykendall,  R.,  Domic,  A.,  Joyner,  W.H.,  Johnson,  S.C.,  Kelem,  S.,  McBride,  D., 
Mostow,  J.,  Savage,  J.E.,  and  Saucier,  6.,  "Design  Synthesis  and 
Measurement",  In  Workshop  Report:  VLSI  and  Software  EnolneerlnQ  Workshop. 
1984,  pp.  6-9;  and,  Jpumal  of  Sustems  and  Software.  Volume  4,  Number  1, 
April  1984. 

Derringer,  J.  A.  and  Joyner,  W.  H.,  Jr,  A  "New  Look  at  Logic  Synthesis’, 
Proceedings  of  the  17th  Design  Automation  Conference.  1980. 

Derringer,  J.  A.  et.  a1.,  "Logic  Synthesis  Through  Local  Transformations",  IBM 
Journal  of  Research  and  Development.  Volume  25,  Number  4,  1981. 

Dasgupta,  S.,  "Computer  Design  and  Description  Languages",  Advances  In 
Computers.  Volume  21,  Academic  Press,  1982. 

DeMah,  H.  et.  a1.,  "Custom  Design  of  Hardware  Digital  Filters  on  I.C's", 
Proceedings  of  the  1982  Custom  Integrated  Circuits  Conference.  1982. 

DeMan,  H.,  Reynders.  L,  Bartholomeus,  M.,  Cornell  seen,  J.,  "PLASCO;  A  Silicon 
Compiler  for  NMOS  and  CMOS  PLA’s",  In  Anceau,  1963,  pp  171-61. 

Denyer,  P.  8.,  Renshaw,  D.,  and  Bergmabb,  N.,  "A  Silicon  Compiler  for  VLSI 
Signal  Processors",  Proceeding  of  the  8th  European  Solid-State  Circuits 
Conference  (ESSCIRC  82).  1982. 

Denyer,  P.B.,  and  Renshaw,  D.,  "Case  Studies  In  VLSI  Signal  Processing  Using 
a  Silicon  Compiler",  Proceedings  ICASSP.  April  1983. 

Denyer,  P.B.,  Murray,  A.F.,  and  Renshaw,  D.,  "FIRST:  Prospect  and  Retrospect", 
in  Capello,  1984,  pp.  252-264. 

Denyer,  P.  and  Renshaw,  D.,  VLSI  Signal  Processing.  A  Bit-Serial  Approach. 
Addison- Wesley,  1985. 

Digest  of  Papers-  COMPCON  Sorlno  82:  Hloh  Technoloou  In  the  Informatl 


Industry.  IEEE  Computer  Society,  1982. 


Frantz,  D.,  and  Ramnrjlg,  FJ.,  The  Impact  of  an  Advanced  CHDL  In  VLSI 
Design*,  Proceedings  International  Conference  on  Computer  Design  (ICCD- 
October  1983. 

"Frustration  Lead  Alles  and  Rip  Into  the  Custom-IC  Business*,  Electronics. 
Volume  57,  Number  13, 26  June  1984. 

Fujita,  T.,  and  Goto,  S.,  *A  Rule  Based  Routing  System*,  tCCD-83. 

Furlow,  8.,  "Silicon  Compilation  Cuts  Costs  of  Custom  VLSI",  Computer 
Design.  Volume  23,  Number  12,  15  October  1964. 

Gajski,  D.D.,  The  Structure  of  A  Silicon  Compiler",  IEEE  International 
Conference  on  Circuits  and  Computers  1982  (ICCC  82).  IEEE  Press,  1982. 

Gajski,  D.D.  and  Kuhn,  R.H.,*  Guest  Editors*  Introduction:  New  VLSI  Tools", 
Computer.  Volume  16,  Number  12,  1983. 

Gajski,  D.D.,  "Silicon  Compilers  and  Expert  systems  for  VLSI",  Proceed! nos 
*64  ACM  IEEE  21st  Design  Automation  Conference.  June  1964. 

Gazsl,  L.,  "Explicit  Formulas  for  Lattice  Wave  Digital  Filters",  ]£££ 
Transactions  on  Circuits  and  Systems.  Volume  CAS-32,  Number  I,  January 
1985. 

Glasser,  L.  A.  and  Dobberpuhl,  D.  W.,  The  Design  and  Anelgsls  of  VLSI 
Circuits.  Addlson-Wesleg.  1985. 

"Graphics  Systems  Chip  Designed  to  Replace  80  TTL  Components",  Electronic 
Engineering  Times.  Number  284, 23  April  1984. 

Gray,  J.P.,  editor,  VLSI  81.  Veru  Large  Scale  Integration.  Proceedings  of  the 
First  International  Conference  on  Very  Large  Scale  Integration.  Academic 
Press,  1981. 

Gray,  J.P.,  Buchanan,  i.  and  Robertson,  P.S.,  "Controlling  VLSI  Complexity 
Using  a  High-Level  Language  for  Design  Description",  Proceedings  IEEE 
tnlenratlonal  Conference  on  Computer  Design  flCCD-63).  October  1963. 


191 


Ik  t 


Hllfinger,  ‘Silage:  A  High  Level-Language  end  Silicon  Compiler  for  Digital 
Signal  Processing".  Proceedings  CICC  1985. 1985. 

Hirschhom,  S..  and  Davis,  A.h.,  "The  Revolution  In  VLSI  Design:  Parallels 
Between  Software  and  VLSI  Englnaarlng",[1n  Conference  Record- 16th 
Asllomar  Conference  on  Circuits  Systems  L  Computers.  1982;  and  In 
Workshop  Report:  VLSI  and  Software  Engineering.  1984,  pp.  75-84. 

Hodges,  D.A.,  and  Jackson,  H.6.,  Anaigsis  and  Design  of  Digital  Integrated 
Circuits.  McGrow  Hill,  1983. 

Holland,  J.  H.,  Adaptation  in  Natural  and  Artificial  Sgstems:  An  Introductoru 
Analysis  with  Applications  to  81o1oQg.  Control  end  Artificial  Intellioence. 
The  University  of  Michigan  Press,  1975. 

IEEE  1984  Workshop  on  the  Engineering  of  VLSI  and  Software.  IEEE  Press, 
1984. 

Ishll,  J.,  Suglura,  y.,  and  Sueshiro,  Y.,  "A  Gate  Array  CAD  System  and  Future 
Tasks  In  the  Field".  Third  Symposium  on  VLSI  Technoloou.  September  1963. 

Jespers,  P.,  Sequin,  C.,  and  van  de  Wiele,  F..  Design  Methodolooies  for  VLSI 
Circuits.  Sitjthoff  and  Noordhoff,  1962. 

Johennsen,  D.L.,  "Bristle  Blocks-  A  Silicon  Compiler",  Proceedings  of  the 
16th  Design  Automation  Conference.  1979. 

Johannsen,  D.L.,  Silicon  Compilation.  PhD.  Dissertation,  Technical  Report 
4530,  California  Institute  of  Technology,  1981. 

Johnson,  S.C.,  "Code  Generation  for  Silicon",  Proceedings  1 0th  ACM  Sumoo- 
slum  on  Principles  of  Programming  Languages.  1983. 

Johnson,  S.C.,  "VLSI  Circuit  Design  Reaches  the  Level  of  Architectural  Des¬ 
cription",  Electronics.  Volume  57,  Number  9,  3  May  1984. 

Johnson,  S.C.,  and  Mazor,  S.,  "Silicon  Compiler  Lets  System  Makers  Design 
Their  Own  VLSI  Chips",  Electronic  Design.  Volume  32,  Number  20,  4  October 
1984. 


193 


Lee,  6.,  Rttzman,  D.,  end  Snepp,  W.,  “Silicon  Compiler  Teams  with  VLSI 
Workstation  to  Customize  CMOS  ICs“,  Electronic  Design.  Volume  32,  Number 
23,  15  November  1964. 

Lee,  C.H.,  and  Lin-Hendel,  C.G.,  “Current  Status  and  Future  Projection  of  CMOS 
Technolopu".  Proceedings  IEEE  COMPCON.  Fall  1982. 

Leighton,  F.T.,  and  Lelserson,  C.E.,  “Wafer-scale  Integration  of  Systolic 
Arrays“,  Proceeding  23rd  IEEE  Sumooslum  of  Foundations  of  Computer 
Science. 

Leinwand,  S.,  and  Lamdan,  T.,  “Design  Verification  Based  on  Functional 
Abstraction“.  Pmceedlnds  16th  Design  Automation  Conference.  1979. 

Leiserson,  C.E.,  Rose,  F.M.,  and  Saxe,  J.D.,  “Optimizing  Synchronous  Circuits 
by  Retiming“,  in  Bryant,  1983,  pp  87-1 16. 

Llesenberg,  H.K.E.,  and  Kinniment,  DJ.,  “Autolayout  System  for  a  Hierarchical 
I.C.  Design  Environment",  Integrated  VLSI.  Volume  1,  Numbers  2-3,  October 
1983. 


Lopez,  A.D.,  and  Law,  H.F.,  “A  Dense  Gate  Matrix  Layout  Style  for  MOS  LSI", 
Digest  of  Technical  Papers.  ISSCC  1980. 

Louie,  G,,  Ho,  T.,  and  Cheng,  E.,  “The  Microvax  I  Data-Path  Chip",  VLSI  Design 
Volume  4,  Number  8,  December  1983. 

Lowe,  L.,  “VLSI  Design  Shrinks  to  Mere  Man-Weeks",  Electronics  1982. 

Lukuhay,  J.  and  Kubitz,  W.J.,  ‘A  Layout  Synthesis  System  for  nMOS  Gate- 
Cel  1s“,JBoi£fiMQgiiOdfiJ2ULQssi9a^^  1982. 

Lyon,  R.F.,  A  Bit-Serial  VLSI  Architectural  Methodologu  for  Signal 
Processing,  in  Gray.  1981,  pp.  131-140. 

Lyon,  R.F.,  MSSE:_A.  Bit-Serial  Multiprocessor  for  Signal  Processing,  in 
Capello,  1964,  pp.  64-75. 

Naval  Postgraduate  School  Technical  Report  NPS52-8 1 -009,  The  structural 
Analusis  of  Programming  Languages,  by  B.J.  MacLennan,  9  June  1981. 


1984;  also  In  Workshop  Report:  VLSI  and  Software  Engineering  Workshop 
19e4,pp.  117-125. 


Moulton,  A.,  "Laying  the  Power  and  Ground  Wires  on  a  VLSI  Chip",  ACM  lEgg 
20th  Design  Automation  Conference.  1983. 

Murray,  A.F.,  Denyer,  P.B.,  and  Renshaw,  D.,  "Self-Testing  in  Bit  Serial  VLSI 
Parts;  High  coverage  at  Low  Cost",  Proceedings  IEEE  International  Test 
Conference.  October  1983. 

Nash,  J.H.,  and  Smith,  S.6.,  "A  Front  End  Graphics  Interface  to  the  FIRST 
Silicon  Compiler",  lEE  European  Conference  on  Electronic  Design  Automation. 
March  1984. 

NewKirk,  J.  A.  and  Matthews,  R.,  The  VLSI  Designer’s  Library.  Addison- 
Wesley,  1983. 

Of  fen,  RJ.,  VLSI  Imaoe  Processing.  McGrow  Hill,  1985. 

Organick,  E.I.,  Lindstrom,  G.,  Smith,  D.K.,  Subrahmanyan,  P.A.,  and  Carter,  T., 
Transformation  of  ADA  Programs  into  Silicon.  Semiannual  Technical  Report 
UTEC  82-020,  University  of  Utah,  1982. 

Ostreicher,  D.,  "Where  is  Computer-Aided  Design  Going?",  Computer.  Volume 
16.  Numbers,  May  1983. 

Ponasuk,  C.,  "Silicon  Compilers  Moke  Sweeping  Changes  in  the  VLSI  Design 
Worlds",  Electronic  Design.  Volume  32,  Number  19,  20  September  1984. 

Parker,  A.C.  et.  a1.,  "The  CMU  Design  Automation  System:  An  Example  of 
Automated  Dato-Path  Design",  Proceedings  of  the  16th  Design  Automation 
Conference.  1979. 

Pearl,  J.,  Heuristics:  Intelligent  Search  Strategies  for  Computer  Problem 
Solving.  Addison-Wesley,  1984. 

Percivol,  R.,  and  Fitchett,  M.,  "Designing  a  Laser-Personalized  Gate  Array", 
VLSI  Design.  Volume  5,  Number  2,  February  1984. 


197 


Reekie,  H.M.,  never,  J.,  Petrie,  N.,  end  Oenyer,  P.B.,  ‘An  Automeled  Design 
Procedure  for  Frequency  Selective  Wave  Filters",  1963  IEEE  International 
Symposium  on  Circuits  and  Sustems.  Volume  1,  IEEE  Press,  1983. 

Reekie,  H.n.,  Petiie,  N.,  Mavor,  J.,  Denver,  P.B.,  and  Lau  C.H.,  ‘Design  and 
Implementation  of  Digital  Wave  Filters  Using  Universal  Adaptor  Structures", 
I  EE  Proceedings  1984.  Part  F,  Volume  131,  Number  6,  1984. 

Reiss,  S.P.  and  Savage,  J.E.,  ‘SLAP-  A  Silicon  Layout  Program",  Proceedings 
IEEE  International  Conference  on  Circuits  and  Computers.  1982. 

Reutz,  P.A.,  Pope,  S.P.  Solberg,  B.,  and  Broderson  R.W.,  ‘Computer  Generation 
of  Digital  Filter  Banks",  Digest  of  Technical  Papers.  IEEE  International  Solid 
State  Circuits  Conference  (ISSCC-84).  Februaru  1984. 

Rivest,  R.L.,  The  PI  (Placement  and  Interconnect)  System",  Proceedings  2Qth 
Design  Automation  Conference.  1982. 

Rosenberg,  A.L.,  "References  to  the  Literature  on  VLSI  Algorithmlcs  end 
Related  Mathematical  and  Practical  Issues",  Sigact  News.  Volume  16, 
Numbers,  Fall  1984. 

Rosenberg,  J.B.,  "Chip  Assembly  Techniques  for  Custom  1C  Design  In  a 
Symbolic  Virtual  Grid  Environment".  Proceeding  MIT  Conference  on  Advanced 
Research  In  VLSI.  January  1984. 

Rosenberg,  J.B.,  and  Waste,  N.H.,  ABCD-  A  Better  Circuit  Description.  MCNC 
Technical  Report  4983-01,  Microelectronic  Center  of  North  Carolina,  1983. 

Rupp,  C.A.,  ‘Components  of  a  Silicon  Compiler  System",  In  Gray,  1981,  pp. 
227-236. 

Saucier,  G.,  and  Serrero,  G.,  "Intelligent  Assistance  for  Top  Down  Design  of 
VLSI  Circuits",  in  Workshop  Report:  VLSI  and  Software  Engineering 
Workshop.  1984,  pp.  107-111. 

Savage,  J.E.,  Three  VLSI  Compilation  Techniques;  PLAs,  Weinberger  Arrays, 
and  SLAP,  (A  New  Silicon  Layout  Program)",  ALgorlthmIcallg-Soeclallzed 

Cocppylsrs,  i983. 


199 


Srtni,  V.P.,  Test  Generation  for  MacPItls  Designs",  Proceedit 

1983. 


Stefik,  M.  et.  el..  The  Partitioning  of  Concerns  In  Digital  System  Design", 

1982. 


Subrahmanyan,  P.A.,  "Synthesizing  VLSI  Circuits  from  Behavioral  Specifi¬ 
cations:  A  Very  High  Level  Silicon  Compiler  and  its  Theoretical  Basis",  In 
Anceau,  1983,  pp.  195-210. 

Suzim,  A.A.,  "Data  Processing  Section  for  t11croprocessor-L1ke  Integrated 
Circuits".  IEEE  Journal  of  Solid  State  Circuits  Conference.  1981. 


Swartzlander,  E.E., 
Publishers,  1985. 


Kluwer  Academic 


The  Evolution  of  Chip  Customization", 
January  1983. 


L  Volume  2,  Number  1, 


Touretzky,  D.  S., 
Si  Row,  1984. 


Harper 


Travassos,  R.H.,  "Hardware  Design  Automation", 
American  Control  Conference.  September  1983. 


Tflckey,  H.W.,  "Good  Layouts  for  Pattern  Recognizers",  IEEE  Transactions  on 
Computing.  Volume  C-3 1 ,  Number  6,  June  1 982. 

Trickey,  H.W.  and  Ullman,  J.D.,  "Regular  Expression  Compiler",  Digest  of 


IEEE  Computer  Society,  1982. 


Turner,  L.E.,  Denyer,  P.B.,  and  Renshw,  D..  "A  Bit  Serial  LDI  Recursive  Digital 
Filter", 

and  Signal  Processing  (ICASSP  84).  March  1984. 


Ullman,  J.  D., 


Computer  Science  Press,  1 984. 


VanCleemput,  W.S.,  "Computer  Hardware  Description  Languages  and  Their 
Applications".  Proceedings  16th  Design  Automation  Conference.  1979. 


Wolf,  W.,  Newkirk,  J.,  Mathews,  R.,  and  Dutton,  R.,  "Dumbo:  A  Schematlc-to- 
Layout  Compiler",  in  Bryant,  1983,  pp.  379-391. 


Workshop  Report.  VLSI  and  Software  Engineering  Workshop.  IEEE  Computer 
Society  Press,  1984. 

Young,  J.,  "Why  Silicon  Compilers  had  to  Change  its  Strategy",  Electronics. 
1985. 

Zarrella,  J.,  "How  Silicon  Compilation  will  Affect  Engineers".  Microcomputer 
Applications.  CQMPCON  Sorino  ‘SS  Computer  Conference.  IEEE  Computer 
Society,  1985. 


I 


203 


Prof.  R.  McGhee,  Code  52M2 
Deportment  of  Computer  Science 
Novel  Postgreduete  School 
Monterey,  Colifomio  93943-5000 

Prof.  D.  Bukofzer,  Code  62BH 

Deportment  of  Electricol  end  Computer  Engineering 

Novel  Postgreduete  School 

Monterey,  Colifomio  93943-5000 

Mr.  P.  Blonkenship 

Messechusetts  Institute  of  Technology 
Lincoln  Loboretory 
P.O.  Box  73 

Lexington,  Messochusetts  02173-0073 
Mr.  J.  Oleory 

Messechusetts  Institute  of  Technology 
Lincoln  Loboretory 
P.O.  Box  73 

Lexington,  Messechusetts  02173-0073 
Mr.  A.  Cosovont 

Messechusetts  Institute  of  Technology 
Lincoln  Loboretory 
P.O.  Box  73 

Lexington,  Messechusetts  02173-0073 

Dr.  C.  Sequin 
Associete  Cheirmon 
Computer  Science  Division 
University  of  Colifomio 
5B9  Evens  Hell 
Berkeley,  Colifomio  94720 

LTCOL  H.  W.  Corter,  USAF 
Air  Force  Institute  of  Technology 
Deportment  of  Electricol  Engineering 
AFIT/ENG  Building  640  Aree  B 
Wright-Potterson  Air  Force  Bose,  Ohio  45433 


mssmrn 


1 9.  Mr.  E.  Carapezzo,  Code  52 
Department  of  Computer  Science 
Naval  Postgraduate  School 
Monterey,  California  93943-5000 

20.  Dr.  F.A.  Malagon-Diaz 
2998  Plaza  Blanca 

Santa  Fe,  New  Mexico  87505-5340 

21.  CAPT,  E.  Malagdn,  USMC 
SMC  -^2480 

Nava)  Postgraduate  School 
Monterey,  California  93943 

22  LCDS  M.  A.  Malagon-Fajar,  USN 
1220  7th  Street,  *2 
Monterey,  California  93940 

23.  ■  Prof.  H.  Titus,  Code  62Ts 

Department  of  Electrical  and  Computer  Engineering 
Naval  Postgraduate  School 
Monterey,  California  93943-5000 

24.  Prof.  S.  Michaels,  Code  62Ms 

Deportment  of  Electrical  and  Computer  Engineering 
Naval  Postgraduate  School 
Monterey,  California  93943-5000 

25.  Prof.  L.  Abbott,  Code  62At 

Department  of  Electrical  and  Computer  Engineering 
Naval  Postgraduate  School 
Monterey,  Californio  93943-5000 


